Bài 4:
uses crt;
var a,b:real;
begin
clrscr;
readln(a,b);
writeln('Tong la: ',a+b:4:2);
writeln('Hieu la: ',a-b:4:2);
writeln('Tich la: ',a*b:4:2);
writeln('Thuong la: ',a/b:4:2);
readln;
end.
Bài 3:
uses crt;
var a,b:longint;
begin
clrscr;
readln(a,b);
writeln('Tong la: ',a+b);
writeln('Hieu la: ',a-b);
writeln('Tich la: ',a*b);
writeln('Thuong la: ',a/b:4:2);
readln;
end.