Bạn kiểm tra lại phần inp nhé giữa 5 và -1 có khoảng cách là 3 đâu .
Lời giải :
program hotrotinhoc;
var a,b,c,d: integer;
begin
readln(a);
readln(b);
readln(c);
readln(d);
if abs(a-b)=abs(d-c) then
begin
write('yes');
write(abs(a-b)) ;
end else write('no');
readln
end.