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.