var snd1,snd2,a,b,d:integer; c:real; begin writeln('Введите первое число'); read(a); write('Введите знак-1(плюс)2(минус)3(умножить)4(делить)'); read(d); write('Введите второе число'); read(b); if d=1 then c:=a+b; if d=2 then c:=a-b; if d=3 then c:=a*b; if d=4 then c:=a/b; write('Ответ: ',c); end.