заполнить массив из 10 целых чисел: 1) нулями 2)нулями кроме 1-го

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.