Вариант 1
1) d: array [1..20] of integer
2) for i:=1 to 15 do readln (b[i])
3) for i:=1 to 10 do f[i]:=random(501)
4) for i:=1 to 100 do a[i]:=2*i
5) for i:=1 to 30 do write (d[i],' ')
Вариант 2
1) f: array [1..25] of real
2) for i:=1 to 20 do readln (d[i])
3) for i:=1 to 30 do a[i]:=random(1001)
4) for i:=1 to 50 do b[i]:=5+i
5) for i:=1 to 15 do writeln (i,' элемент: ',d[i])