var i:integer;
begin
for i:=1 to 5 do writeln(i);
while i<10 do begin
writeln (i);
i:=i+1;
end;
repeat
writeln(i);
i:=i-1;
until i<0;
end.