Run Code
|
API
|
Code Wall
|
Misc
|
Feedback
|
Login
|
Theme
|
Privacy
|
Patreon
1
//fpc 3.0.0 program CALKYLATOR; var A:Integer; begin writeLn('Введите число: '); readLn(A); if A > 0 Then writeLn(A + 1) else if A < 0 Then writeLn(A - 2) else writeLn(10); end.
run
|
edit
|
history
|
help
0
11.7.2013 naloga2
3
P170808A
test22
6
formato_real
test26
For3
solar system array
считалочка06