program cykl3;
var
   i : integer;
begin
     for i := 1 to 10 do begin  {pro i od jedne do deseti delej}
{     for i := 10 downto 1 do begin}
          writeln(i);           {telo cyklu}
     end;                       {konec}
     readln;
end.