var a: integer;
begin
readln(a);
while(a < 0) or (a > 200) do begin
readln(a)
end;
if(a > 100) then
while (a > 0) do begin
writeln(a);
a := a -1
end
else begin
while (a <= 200) do begin
a := a + 1
end.
Copyright © 2024 SCHOLAR.TIPS - All rights reserved.
Answers & Comments
var a: integer;
begin
readln(a);
while(a < 0) or (a > 200) do begin
readln(a)
end;
if(a > 100) then
begin
while (a > 0) do begin
writeln(a);
a := a -1
end;
end
else begin
while (a <= 200) do begin
writeln(a);
a := a + 1
end;
end;
end.