Cộng điển cho mk nha
 

program bai18;
uses crt;
var a,b,test:integer;
begin
clrscr;
write('Nhap a: ');readln(a);
write('Nhap b: ');readln(b);
write('Nhap KQ cua ban: ');readln(test);
if ( test = (a+b) ) then write('Chuc mung! Ban da tinh dung!' else
begin
writeln('Rat tiec! Ban da tinh sai!');
write('KQ dung la: ',a+b);
end;
readln;
end.

// Chạy sai thì ib