Как сделать калькулятор в PascalABC, что бы он складывал, вычитал, умножали делил все числа?​

uses crt;

var a,b,c:integer;

d:string;

begin

clrscr;

writeln('Введите первую цифру');

readln(a);

writeln('Введите знак операции');

readln(d);

writeln('Введите вторую цифру');

readln(c);

if d=('+') then b:=a+c;

if d=('-') then b:=a-c;

if d=('*') then b:=a*c;

if d=('/') then b:=a div c;

writeln('ответ: ',b);

readln;

end.

Объяснение: