uses crt;
var a,b:integer;
begin
clrscr;
write('Nhap a='); readln(a);
write('Nhap b='); readln(b);
writeln('Tong cua hai so la: ',a+b);
writeln('Hieu cua hai so la: ',a-b);
writeln('Tich cua hai so la: ',a*b);
writeln('Thuong cua hai so la: ',a/b:4:2);
readln;
end.
program tinh_toan;
uses crt;
begin
clrscr;
writeln('nhap so a:',a:6:2); readln(a);
writeln('nhap so b:',b:6:2); readln(b);
tich:=a*b;
hieu:=a-b;
tong:=a+b;
thuong:=a/b;
writeln('tich 1 so bang:',tich:6:2);
writeln('tong 2 so bang:'tong:6:2);
writeln('hieu 2 so bang:'hieu:6:2);
writeln('thuong 2 so bang:',thuong:6:2);
readln
end.
var a,b:real;
begin
write('a=');readln(a);
write('b=');readln(b);
writeln(' Tong la ',(a+b):2:2);
writeln(' Hieu la: ',(a-b):2:2);
writeln(' Tich la: ',(a*b):2:2);
writeln(' Thuong la: ',(a/b):2:2);
readln;
end.