Viết chương trình tính tổng, hiệu, tích, thương của 2 số a và b với a,b được nhập từ bàn phím

Program Tong_hieu_tich_thuong;

uses crt;

var tong,hieu,tich,thuong: real;

a,b: integer;

begin

clrscr;

write(‘nhap so a=”); readln(a);

write(“nhap so b =’); readln(b);

tong:=a+b;

hieu:=a-b;

tich:=a*b;

thuong:=a div b;

writeln(‘tong cua 2 so a va b =’ ,tong);

writeln(‘hieu cua 2 so a va b =’ , hieu );

writeln(‘tich cua 2 so a va b =’,tich);

writeln(‘thuong cua 2 so a va b =’ ,thuong);

readln;

end.