Program chuongtrinh;
Uses crt;
Var a, b, tong: Integer;
Begin
Clrscr;
Write (‘Nhap gia tri cua so thu nhat: ’);
Readln (a);
Write (‘Nhap gia tri cua so thu hai: ’);
Readln (b);
Write (‘Ket qua ban tinh duoc la: ’);
Readln (tong);
If tong=a+b then writeln (‘Chuc mung! Ban da tinh dung!’)
else writeln (‘Rat tiec! Ban da tinh sai!’, Tong =a+b);
Readln;
End.