Program calculator;

var a,b:real; x:char;

begin

write('Введите два числа');

readln(a,b);

write('Выберите действие');

readln(x);

If x='+' then writeln(a, x, b,'=',a+b);

If x='-' then writeln(a, x, b,'=',a-b);

If x='*' then writeln(a, x, b,'=',a*b);

If x='/' then writeln(a, x, b,'=',a/b);

end.

uses crt;

var a,b,s:real; z:char;
begin
write('Vvedite A = ');
readln(a);
write(' + - / * : ' );
readln(z);
write('Vvedite B = ');
readln(b);
case z of
'+': begin s:=a+b; writeln(a,' + ',b,' = ',s); end;
'-': begin s:=a-b; writeln(a,' - ',b,' = ',s); end;
'*': begin s:=a*b; writeln(a,' * ',b,' = ',s); end;
'/': begin s:=a/b; writeln(a,' / ',b,' = ',s); end;
else
writeln('error: incorrect operation symbol!!!');
end;
readln;
end.