помогите пожалуйста, нужно составить программу на языке Паскаль

var i, n: integer;
a: array [1..100] of real;
begin
n:=10;
for i:=1 to n do
begin
a[i]:=random (4);
write (a[i]:5:1);
end;
writeln;
if a[1] = 0 then a[1] := a[2];
if a[n] = 0 then a[n] := a[n-1];
for i:=2 to n-1 do
if (a[i] = 0) then a[i]:=(a[i-1]+a[i+1])/2;
for i:=1 to n do write (a[i]:5:1);
end.

А в чём именно сложность?

0 0 10 6 4 10 10 4 0 0
0 5 10 6 4 10 10 4 2 2
----------
1 0 3 10 7 7 4 8 6 0
1 2 3 10 7 7 4 8 6 6
----------
0 9 5 9 8 0 0 4 1 8
9 9 5 9 8 4 4 4 1 8
----------
8 5 9 0 8 8 2 5 0 6
8 5 9 8.5 8 8 2 5 5.5 6
----------
4 7 0 7 3 8 10 10 8 0
4 7 7 7 3 8 10 10 8 8
----------
6 0 2 10 0 0 8 0 1 5
6 4 2 10 5 6.5 8 4.5 1 5
----------
0 4 1 3 3 6 2 1 5 2
4 4 1 3 3 6 2 1 5 2
----------
2 8 10 5 7 3 1 7 9 7
2 8 10 5 7 3 1 7 9 7
----------
5 4 10 2 10 7 0 0 10 0
5 4 10 2 10 7 3.5 6.75 10 10
----------
0 0 4 0 1 10 10 10 2 5
0 2 4 2.5 1 10 10 10 2 5
----------
0 3 10 9 4 1 0 2 4 0
3 3 10 9 4 1 1.5 2 4 4
----------
1 0 9 3 10 5 9 10 7 6
1 5 9 3 10 5 9 10 7 6
----------
0 9 0 0 0 0 8 8 8 4
9 9 4.5 2.25 1.125 4.5625 8 8 8 4
----------
4 10 2 2 2 9 10 9 10 10
4 10 2 2 2 9 10 9 10 10
----------
5 10 5 3 8 3 7 2 0 10
5 10 5 3 8 3 7 2 6 10
----------
10 0 5 0 0 6 0 0 6 6
10 7.5 5 2.5 4.25 6 3 4.5 6 6
----------