Простота - залог успеха )))))))0


uses crt;
var a,c,d,x: real;
var b:char;
begin
clrscr;
writeln('1 chislo'); readln(a);
writeln('Dejstvie'); readln(b);
writeln('2 chislo'); readln(c);
if b=('+') then writeln ('Otvet: ',a+c:4:2) else
if b=('*') then writeln ('Otvet: ',a*c:4:2) else
if b=('-') then writeln ('Otvet: ',a-c:4:2) else
if b=('/') then writeln ('Otvet: ',a/c:4:2);
readln;
end.