PROGRAM Petla1; USES Crt; VAR i, n : Integer; Zn : Char; BEGIN ClrScr; Write('Podaj liczbe powtorzen petli : '); ReadLn(n); Write('Petla "w gore" :'); FOR i:=1 TO n DO Write(i:3); WriteLn; Write('Petla "w dol" :'); FOR i:=n DOWNTO 1 DO Write(i:3); Zn:=ReadKey; END.