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é!

program azkp;

uese Crt;

var a1,a2,b1,b2,c1,c2 : longint;

begin

Wirte(' Nhap a1 :'); readln(a1);

Wirte(' Nhap a2 :'); readln(a2);

Wirte(' Nhap b1 :'); readln(b1);

Wirte(' Nhap b2 :'); readln(b2);

Wirte(' Nhap c1 :'); readln(c1);

Wirte(' Nhap c2 :'); readln(c2);

If (a1 = a2) and (b1 = b2) and (c1 = c2) then Write(' Yes ') else Write(' No ');

readln

end.