uses crt;
var a,b,t:integer;
begin
clrscr;
write('a='); readln(a);
write('b='); readln(b);
write('nhap so ban cho la tong cua hai so ',a,' va ',b,'='); readln(t);
if t=a+b then writeln('chuc mung! ban da tinh dung')
else
begin
writeln('rat tiec! ban da tinh sai');
writeln('ket qua dung la: ',a+b);
end;
readln;
end.