Program Tongtich;

Uses Crt;

Var tong, tich, a, b: integer;

Begin

 Clrscr;

 Write('Nhap so nguyen thu nhat: ');

 Readln(a);

 Write('Nhap so nguyen thu hai: ');

 Readln(b);

 tong := a + b;

 tich := a * b;

 Writeln('Tong cua hai so nguyen la: ', tong);

 Writeln('Tich cua hai so nguyen la: ', tich);

 Readln;

End.

*Giải thích:

-Biến a và b chỉ là khai báo tên biến thôi, chứ không phải là gì đặc biệt mà phải bắt buộc là a và b

-Clrscr là từ khóa dùng để xóa màn hình khi mỗi lần chạy chương trình

Program L;

Uses crt;
Var a, b: integer;
Begin
      Clrscr;
      Write('Nhap a = '); readln(a);
      Write('Nhap b = '); readln(b);
      Writeln('Tong 2 so la: ',a+b:0:1);
      Writeln('Tich 2 so la: ',a*b:0:1);
Readln
End.