help me!!

[nv_long88]

Viết chương trình nhập vào tọa độ bốn đỉnh của tứ giác ABCD là (ax,ay);(bx,by);(cx,cy);(dx,dy). Cho biết tứ giác này có phải hình bình hành không? In kết quả ra màn hình.
Xin cảm ơn mọi người!

[nv_long88]

Kai giúp đỡ hết. Cứu em với mấy pro

[baoquocphan]

Đây nè
uses crt;
var ax,ay,bx,by,cx,cy,dx,dy:integer;
begin
clrscr;
write('Nhap toa do cac dinh ABCD: '); readln(ax,ay,bx,by,cx,cy,dx,dy);
if (ax-bx=dx-cx) and (ay-dy=by-cy) then writeln('Day la HBH') else writeln('Khong la HBH');
readln;
end.

Nếu có lỗi gì thì nói để mình sứa nghe %%-