Ответ:

program Massiv;

var a:array [1..10] of Integer;

i:Integer;

begin

for i:=1 to 10 do

begin

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

write (a[i], ' ')

end

end.