nhập từ bàn phím giá trị 2 biến x,y,sau đó nhập kết quả là tổng của x và y kiểm tra nếu kết quả =x+y ,in ra màn hình thông báo ''hoan hô bạn đoán đúng " ,ngược lại in thông báo "rất tiếc bạn đoán sai"

uses crt;

var x, y, t : integer;

begin

clrscr;

write('nhap hai so x va y : ');readln(x, y);

write('nhap tong x + y : ');readln(t);

if t = x + y then writeln('hoan ho ban da doan trung')

else writeln('rat tiec ban da doan sai');

readln

end.

program bai_giai;

uses crt;

var x,y,kq:longint;

begin

clrscr;

write('nhap x, y:');readln(x,y);

write('nhap ket qua phep tinh x+y');readln(kq);

if(x+y=kq)then write('hoan ho ban dung roi')else write('rat tiec ban doan sai');

readln

end.