Написать программу "Калькулятор", которая выводит результат выполнения одной из операций (+; -; *; /) над двумя числами a и b. (Pascal)

Var A, B:real;

C:integer;

Begin

WriteLn (1 - сложение, 2 - вычитание, 3 - умножение, 4 - деление, 0 - выход) ;

ReadLn (C) ;

While C 0 do

Begin

Write (Введите два числа:) ;

ReadLn (A, B) ;

Write (Ответ:) ;

Case C of

1:WriteLn (A+B) ;

2:WriteLn (A-B) ;

3:WriteLn (A*B) ;

4:WriteLn (A/B) ;

End;

WriteLn (1 - сложение, 2 - вычитание, 3 - умножение, 4 - деление, 0 - выход) ;

ReadLn (C) ;

End;