Заполнить массив из 10 целых чисел: 1) нулями 2) нулями кроме 1-го и последнего (первое и посление = 1) 3) кратное 5 4) числа фибоначи

var a, b, c, d:array [1 ... 10] of integer;

i, x, y, z:integer;

begin

for i:=1 to 10 do

begin

a[i]:=0;

if (i=1) or (i=10) then b[i]:=1 else b[i]:=0;

c[i]:=i*5

end;

for i:=1 to 10 do write (a[i],' ') ;

writeln;

for i:=1 to 10 do write (b[i],' ') ;

writeln;

for i:=1 to 10 do write (c[i],' ') ;

writeln;

x:=0;

y:=1;

d[1]:=x;

d[2]:=y;

for i:=3 to 10 do begin

d[i]:=x+y;

z:=y;

y:=x+y;

x:=z

end;

for i:=1 to 10 do write (d[i],' ') ;

end.