uses crt;

var a,b:longint;

begin

clrscr;

write('a=');

readln(a);

write('b=');

readln(b);

writeln('Tong cua 2 so a,b la:',a+b);

writeln('Hieu cua 2 so a,b la:',a-b);

writeln('Tich cua 2 so a,b la:'a*b);

writeln('Thuong cua 2 so a,b la:',a/b:2:2);

writeln('Phan nguyen cua phep chia a,b la:',a div b);

writeln('Phan du cua phep chia a,b la:',a mod b);

readln

end.

program A01;

uses crt;

var a, b : integer;

begin

clrscr;

write('Nhap so a, b = '); readln(a, b);

writeln('Tong 2 so = ', a + b);

writeln('Hieu 2 so = ', a - b);

writeln('Tich 2 so = ', a * b);

writeln('Thuong 2 so = ', a / b : 2 : 2);

writeln('Phan nguyen a / b = ', a div b);

writeln('Phan du a / b = ', a mod b);

readln

end.