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
Writeln(a,'/',b,'=',a/b);
readln;
End.