Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- var
- x1,x2,y1,y2,d1,d2: integer;
- begin
- readLn(x1,y1);
- readLn(x2,y2);
- d1:=abs(x2 - x1);
- d2:=abs(y2 - y1);
- if d1 > d2 then
- writeln(d1)
- else
- writeln(d2);
- end.
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement