program r7_2;
uses crt;
const maxn=50;
type M=array[1..maxn] of integer;
var a:M;
n:Byte;
x,y:integer;
i:integer;
procedure Init;
Begin
Randomize;
for i:=1 to n do
While (a[i]y) do
a[i]:=random(y);
end;
Begin
write('vvedi:');
readln(n);
write('vvedi granici:');
readln(x,y);
Init;
for i:=1 to n do
Write(a[i]:3);
end.