Uses crt; Var a,b:integer; Begin clrscr; write('nhap so thu 1 :'); readln(a); write('nhap so thu hai :'); readln(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:0:2); readln; End.
