uses crt;
var a,b: real;
    ope: char;
begin
clrscr;
    write('Nhap a: '); readln(a);
    write('Nhap b: '); readln(b);
    write('Nhap phep tinh: '); readln(ope);
    if ope = '+' then write(a + b:0:2) else
        if ope = '-' then write(a - b:0:2) else
            if ope = '*' then write(a * b:0:2) else
                if ope = '/' then write(a / b:0:2);
readln;
end.

uses crt;
var a,b:real;
    t : string;
begin
clrscr;
write('nhap vao hai so thuc ');readln(a,b);
write('nhap vao phep tinh ');readln(t);
if t = '+' then writeln(a+b:0:2)
 else if t = '-' then writeln(a-b:0:2)
  else if t = '*' then writeln(a*b:0:2)
   else if t = '/' then writeln(a/b:0:2);
readln
end.