Used crt;
Var m,n;
Begin
Clrscr;
Writeln(‘Nhap m:’);Readln(m);
Write(‘Nhap n:’);Readln(n);
Clrscr;
Writeln(‘Tong la:’,m+n);
If m>n then writeln(‘Hieu la:’,m-n) else writeln(‘Hieu la:’,n-m);
Writeln(‘Tich la:’,m*n);
If n<>0 then write(‘Thuong la:’,m:n) else if m<>0 then write(‘Thuong la:’,n:m) else write(‘ Ko tinh dc’);
Readln;
End.