Pastebin
API
tools
faq
paste
Login
Sign up
SHARE
TWEET
Untitled
a guest
Jun 14th, 2018
93
0
Never
Add comment
Not a member of Pastebin yet?
Sign Up
, it unlocks many cool features!
Pascal
0.12 KB
| None
|
0
0
raw
download
clone
embed
print
report
var
a
,
b
,
c
:
real
;
begin
read
(
a
,
b
)
;
c
:
=
a
;
if
a>b
then
begin
a
:
=
b
;
b
:
=
c
;
end
;
write
(
a
,
' '
,
b
)
;
a
:
=
a
*
b
/
2
;
b
:
=
(
b
+
c
)
/
2
;
end
.
Add Comment
Please,
Sign In
to add comment
Public Pastes
Untitled
Python | 2 min ago | 0.82 KB
windows11-ryzen5800x-libvirt-xml-13
XML | 5 min ago | 10.25 KB
magic_square_generator
Python | 7 min ago | 6.43 KB
Example 3
JavaScript | 7 min ago | 3.35 KB
Example 2
JavaScript | 8 min ago | 2.06 KB
Example 1
JavaScript | 10 min ago | 2.31 KB
🤑 G2A.com Free Gift Card Guide May 2024 FIX 🎁
GetText | 20 min ago | 0.38 KB
Extraction audio conversion MP3
Winbatch | 22 min ago | 0.29 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!