uses crt;
var a1, a2, b1, b2, c1, c2 :longint;
cv1, cv2 :longint;
begin
clr scr;
writeln (' nhập a1:', a1);
readln(a1);
writeln (' nhập a2:', a2);
readln(a2);
writeln (' nhập b1:', b1);
readln(b1);
writeln (' nhập b2:', b2);
readln(b2);
writeln (' nhập c1:', c1);
readln(c1);
writeln (' nhập c2:', c2);
readln(c2);
cv1:=a1+b1+c1;
cv2:=a2+b2+c2;
if cv1 = cv2 then write(' YES') else write ('NO');
readln;
end.
P/s: mk chưa kt lỗi, bạn chạy thử ct rồi sửa lỗi nếu có nhé!
