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.
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.
end;
readln;
end.