Написать консольный калькулятор на Паскале

uses crt;

var d:char;

a,b,s,c: real;

begin

 write('Введите первое число: ');

 readln(a);

 write('Введите второе число: ');

 readln(b);

 write('Какое действие хотите выполнить? + - * / ');

 readln(d);

 case d of

   '+': s := a + b;

   '*': s := a * b;

   '-': s := a - b;

   '/': if s = 0 then begin writeln('Ошибка!') end else begin s := a / b end;

 end;

 writeln(s);

end.

Объяснение: