var a,b:longint;

begin

writeln('nhap a= ');readln(a);

writeln('nhap b= ');readln(b);

writeln(a+b);

writeln(a-b);

writeln(a*b);

writeln(a/b);

readln

end.

Bài 1:
Program NN;
Uses crt;
Var a,b: longint;
Begin
        Clrscr;
        Write('Nhap a,b: '); Readln(a,b);
        Writeln('Tong = ',a+b);
        Writeln('Hieu = ',a-b);
        Writeln('Tich = ',a*b);
        Write('Thuong = ',a/b:0:2);
        Readln
End.
Bài 2:
Program NN;
Uses crt;
Const pi=3.14;
Var r,a,b,p,s: real;
Begin
        Clrscr;
        Writeln('HINH TRON');
        Write('Nhap ban kinh: '); Readln(r);
        s:=r*r*pi;
        p:=2*r*pi;
        Writeln('Chu vi: ',p:0:2);
        Writeln('Dien tich: ',s:0:2);
        Writeln('HINH CHU NHAT');
        Write('Nhap chieu dai va chieu rong: '); Readln(a,b);
        s:=a*b;
        p:=(a+b)*2;
        Writeln('Chu vi: ',p:0:2);
        Writeln('Dien tich: ',s:0:2);
        Writeln('HINH VUONG');
        Write('Nhap do dai canh: '); Readln(a);
        s:=a*a;
        p:=4*a;
        Writeln('Chu vi: ',p:0:2);
        Write('Dien tich: ',s:0:2);
        Readln
End.
Bài 3:
Program NN;
Uses crt;
Var a,b: longint;
Begin
        Clrscr;
        Write('Nhap a va b: '); Readln(a,b);
        If a>0 then Writeln(a,' duong')
        Else If a<0 then Writeln(a,' am')
        Else Writeln(a,' khong am khong duong');

        If a mod 2 = 0 then Writeln(a,' la so chan')
        Else Writeln(a,' la so le');

        If a mod 3 = 0 then Writeln(a,' chia het cho 3')
        Else Writeln(a,' khong chia het cho 3');

        If a mod 5 = 0 then Writeln(a,' chia het cho 5')
        Else Writeln(a,' khong chia het cho 5');

        If a>b then Write(a,' lon hon ', b)
        Else If b>a then Write(b,' lon hon ',a)
        Else Write('Bang nhau');
        Readln
End.