program chuong_trinh;

uses crt;

Var a, b : integer;

Begin

Write ( ' Ban hay nhap so nguyen a : '); Readln(a);

Write ( ' Ban hay nhap so nguyen b : '); Readln(b);

Writeln ( ' Tong cua hai so do la a + b =`, a+b);

Write ( ' Hieu cua hai so do la a - b = ', a-b );

Readln;

End.

$\text{program tinh;}$

$\text{uses crt;}$

$\text{var a, b : integer;}$

$\text{begin}$

$\text{clrscr;}$

$\text{write('nhap so nguyen thu nhat :');readln(a);}$

$\text{write('nhap so nguyen thu hai :');readln(b);}$

$\text{writeln('tong cua hai so la :', a + b );}$

$\text{wwriteln('hieu cua hai so la :', a - b );}$

$\text{readln}$

$\text{end.}$