Програмний код для калькулятора ПОЖАЛУСТА!!!!!!!

Program ABCcalc;

var a,b,c,d,f,q:integer;

e:real;

begin

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

readln(a);

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

readln(b);

writeln('выберите,что вы хотите сделать с этими числами,1-сложение,2-вычитание,3-умножение,4-деление');

readln(q);

if (q=1) then begin d:=a+b;

writeln('ваш результат',d);end;

if (q=2) then begin f:=a-b;

writeln('ваш результат',f); end;

if (q=3) then begin c:=a*b;

writeln('ваш результат',c);end;

if (q=4) then begin e:=a/b;

writeln('ваш результат',e);end;

end.