Пожалуйста, помогите мне с информатикой. Это задание решает, что у меня будет в…

Program num1; Uses crt; Var a: array [1… 9] of integer; i: integer; Begin clrscr; writeln ('Vvedite trexzna4nie 4isla: '); write ('a[1]='); readln (a[1]); write ('a[4]='); readln (a[4]); write ('a[7]='); readln (a[7]); if (a[1]<100) or (a[1]>999) then writeln ('error') elseif (a[4]<100) or (a[4]>999) then writeln ('error') elseif (a[7]<100) or (a[7]>999) then writeln ('error') elsebeginfor i: =1 to 9 dobeginif (i=2) or (i=5) or (i=8) then a[i]: =i*10; if (i=3) or (i=6) or (i=9) then a[i]: =a[i-1]+a[i-2]; end; writeln ('Mas: '); for i: =1 to 9 dowrite (a[i],'); end; End.