You cannot select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
13 lines
210 B
Plaintext
13 lines
210 B
Plaintext
10 months ago
|
{ Example program implementing some old IP assignment }
|
||
|
|
PROGRAM alt;
|
||
|
|
var shift : integer;
|
||
|
|
begin
|
||
|
|
readln(shift);
|
||
|
|
if shift < 0 then
|
||
|
|
shift := shift + shift
|
||
|
|
else
|
||
|
|
shift := shift - shift;
|
||
|
|
writeln(shift)
|
||
|
|
end
|
||
|
|
.
|