program ciklas_for;var i : integer;begin for i := 1 to 10 do WriteLn(i);ReadLn;end.
program ciklas_for;var i : integer;begin for i := 10 downto 1 do WriteLn(i);ReadLn;end.