Program Jednorozmerne_pole;
Uses CRT;
Var i,p:integer;
Cisla :array [1..20] of integer;
Begin
       Clrscr;
        Randomize;
       Writeln (' Zadaj pocet cisel, max. 20' );
       Readln (p);
       For i:=1 to p do
             Cisla [i]:= random (15);            (*vygeneruje p nahodnych cisel od 0 do 14*)
       Writeln (' Vymyslene cisla su: ');
       For i:=1 to p do
             Writeln (i:3,' . cislo: ', cisla [i]:5);
       Repeat until keypressed;
End.