Tổng, hiệu, tích, thương 2 số.
Đề bài: Nhập vào bàn phím 2 số in ra màn hình kết quả tổng, hiệu, tích, thương của 2 số đó.
Program Tong_hieu_tich_thuong;
Uses crt;
Var a:integer;
b:integer;
Begin
clrscr;
write('nhap so thu 1 :');
readln(a);
writeln('ban vua nhap so: ',a);
write('nhap so thu hai :');
readln(b);
writeln('ban vua nhap so thu 2: ',b);
Writeln(a,'+',b,'=',a+b);
Writeln(a,'-',b,'=',a-b);
Writeln(a,'*',b,'=',a*b);
if b<>0 then {Nếu không kiểm tra thì b=0 chương trình sẽ bị lỗi}
Writeln(a,'/',b,'=',a/b);
readln;
End.
