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.