Pastebin
API
tools
faq
paste
Login
Sign up
SHARE
TWEET
Untitled
sentique
Oct 10th, 2017
73
0
Never
Add comment
Not a member of Pastebin yet?
Sign Up
, it unlocks many cool features!
Pascal
0.17 KB
| None
|
0
0
raw
download
clone
embed
print
report
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
Public Pastes
Theksarsi Facts Sheet
1 hour ago | 8.44 KB
Bitcoin is Amazing
3 hours ago | 0.12 KB
Roblox Scripts
8 hours ago | 0.02 KB
December smells like money
8 hours ago | 0.06 KB
Decentralized Moneys
9 hours ago | 0.42 KB
Bitcoin
9 hours ago | 0.23 KB
Untitled
10 hours ago | 13.75 KB
Untitled
10 hours ago | 0.06 KB
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the
Cookies Policy
.
OK, I Understand
Not a member of Pastebin yet?
Sign Up
, it unlocks many cool features!