uses crt;

var a, b : real;

      c : char;

begin

clrscr;

write('nhap so thuc thu nhat :');readln(a);

write('nhap so thuc thu hai :');readln(b);

write('nhap phep tinh ban muon thu hien :');readln(c);

if c = '+' then writeln('tong hai so la :', (a + b):3:2);

if c = '-' then writeln('hieu hai so la :', (a - b):3:2);

if c = '/' then writeln('thuong hai so la :', (a/b):3:2);

if c = '*' then writeln('tich hai so la :', (a * b):3:2 );

readln

end.

program bai_giai;
uses crt;
var a,b:real;pt:string;
begin
 clrscr;
  write('nhap so thu 1:');readln(a);
  write('nhap so thu 2:');readln(b);
  write('nhap phep tinh:');readln(pt);
  if(pt='+')then write(a+b:4:2);
  if(pt='-')then write(a-b:4:2);
  if(pt='*')then write(a*b:4:2);
  if(pt='/')then write(a/b:4:2);
 readln;
end.