Пожалуйста 1 и 2 вариант)))

Вариант 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])