Tổng hợp bài 1, bài 2 và bài 3 đây nha:

 Program phep_tinh;
    uses crt;
    var a,b,tong,hieu,tich:integer; ---> Khai báo biến số nguyên
             Begin
           clrscr;
            write('Nhap so thu nhat: ');
            readln(a);
            write('Nhap so thu hai: ');
            readln(b);
            tong:= a + b;
            hieu:= a - b;
            tich:= a * b;
            writeln('Tong cua hai so ',a,' + ',b, ' = ',tong);
            writeln('Hieu cua hai so ',a,' - ',b, ' = ',hieu);
            writeln('Tich cua hai so ',a,' * ',b, ' = ',tich);
            readln;
    End.

Câu 1:

Program bai1;

Uses crt;

Var a,b:integer;

Begin

Clrscr;

Write('Nhap a va b:'); Readln(a,b);

Writeln('Tong cua a va b:',a+b);

Readln

End.

Câu 2:

Program bai2;

Uses crt;

Var a,b:integer;

Begin

Clrscr;

Write('Nhap a va b:'); Readln(a,b);

If a>b then Writeln('Hieu cua a va b:', a-b)

           else Writeln('Hieu cua a va b:', b-a);

Readln

End.

Câu 3:

Program bai3;

Uses crt;

Var a,b:integer;

Begin

Clrscr;

Write('Nhap a va b:'); Readln(a,b);

Writeln('Tich cua a va b:',a*b);

Readln

End.