2

Program Project1;
Uses Crt;
Var  A,B,C,i,j,pocet:Integer;

Procedure hviezdy(cislo:Integer);
Begin
     For j:=1 To cislo Do
        Begin
           Write('*');
        End;
        WriteLn();
End;
Begin { main program }
     ClrScr;
     Randomize;
     Writeln('Zadajte spodnu hranicu');
     read(A);
     Writeln('Zadajte hornu hranicu');
     read(B);
     writeln ('Zadaj pocet cisel');
     readln (pocet);
     writeln('Generujem ',pocet,' ciesiel v rozsahu<',A,';',B,'>');
     For i:=1 To pocet Do
        Begin
           C:=Random(B)+A;
           hviezdy(C);
        End;
     ReadKey;
End.