Advertisement
sentique

Untitled

Oct 10th, 2017
69
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Pascal 0.17 KB | None | 0 0
  1. var
  2.   x1,x2,y1,y2,d1,d2: integer;
  3.  
  4. begin
  5.  readLn(x1,y1);
  6.  readLn(x2,y2);
  7.  d1:=abs(x2 - x1);
  8.  d2:=abs(y2 - y1);
  9.  if d1 > d2 then
  10.  writeln(d1)
  11.  else
  12.  writeln(d2);
  13.  end.
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement