Как сделать кнопку на 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.