Арифметические действия над числами по выбору пользователя - Pascal ABC

Формулировка задачи:

Арифметические действия над числами пронумерованы следующим образом; 1- сложение, 2- вычитание, 3- умножение, 4- деление. Дан номер действия N (целое число в диапазоне 1-4) и все действенные числа A и B (B не равно 0). Выполнить над числами указанное действие и вывести результат.

Решение задачи: «Арифметические действия над числами по выбору пользователя»

Листинг программы

uses crt;
var a,b:real;
    n:byte;
begin
   clrscr;
   write('A=');
   readln(a);
   repeat
     write('B=');
     readln(b);
   until b<>0;
   writeln('1- сложение, 2- вычитание, 3- умножение, 4- деление');
   repeat
     write('N=');
     readln(n);
   until (n>=1) and (n<=4);
   case n of
     1:writeln(a+b:2:2);
     2:writeln(a-b:2:2);
     3:writeln(a*b:2:2);
     4:writeln(a/b:2:2);
   end;
end.

Объяснение кода листинга программы

Объявлены переменные a, b, n типа real и byte соответственно.
Задана инициализация начального значения переменной a.
Выполняется цикл до тех пор, пока значение переменной b не станет равным нулю.
В каждой итерации цикла происходит вывод сообщения с просьбой ввести значение переменной b.
Выполняется цикл до тех пор, пока значение переменной n не станет равным одному из значений от 1 до 4.
В каждой итерации цикла происходит вывод сообщения с просьбой ввести значение переменной n.
В зависимости от значения переменной n выполняется соответствующая операция: сложение, вычитание, умножение или деление.
Результат операции выводится на экран с указанием типа чисел и количества знаков после запятой.