var

a: array [1..15] of byte;

i:byte;

begin

Randomize;

for i:=1 to 15 do

a[i]:=random(101)+50;

for i:=1 to 15 do

write(a[i],' ');

end.