ПОМОГИТЕ РЕШИТЬ!!!!!!!!!!!

DIM A(10) AS INTEGER

s=0

FOR i = 1 TO 10

A(i)=i * 2

s=s + A(i)

NEXT i

PRINT s

END


или


Var s,i: integer;

A[1..10] of integer;

Begin

s:=0;

for i:=1 to 10 do

begin

A[i]:=i * 2;

s:=s + A[i];

end;

write (s);

End.


Помогите решить!!!!!