как сделать кнопку на pascal abc сможете добавить вот сюда
program калькулятор;
var
a,b,c,d,e,f,q:
real;
begin
Writeln ('введите число a:');
readln(a);
Writeln ('введите число b:');
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.