Циклы со счетчиком

[натал]

В общем,задача для кого легкая..А я полнейший ноль в информатике.И для моего развития учитель решил дать кучу задач на ту тему,которую я пропустила...
Входные данные(условие):

Во входном потоке в первой строке записано единственное целое число N (0 < N <= 100) - число элементов числовой последовательности;
Во второй строке перечислены значения положительных элементов целочисленной последовательности (через пробел). Значения элементов не превышает 10.

Выходные данные:

В выходной поток вывести единственное вещественное число с точностью три знака после запятой.

Что надо сделать:Вычислить сумму половинных значений квадратов элементов заданной числовой последовательности.
Пример входного файла (input.txt):
10
4 5 2 7 3 6 3 9 8 2

Пример выходного файла (output.txt):

148.500


Мой код,что вышел:

PHP код:

program p1276;
var input,output:text;
    n,i:integer;
    a:real;
    z:array[1..10] of Real;
begin
Assign(input,'input.txt');
Reset(input);
ReadLn(input,n);
for i:=1 to n do Read(input, z[n]);
Close(input);
for i := 1 to n do z[i] := sqr(z[i])/2;
for i := 1 to n do a := a + z[i];
Assign(output,'output.txt');
Rewrite(output);
Write(output, a:0:3);
Close(output); 


Помогите,ничего не пойму.

[kaktusad]

PHP код:

program p1276; 
var input,output:text; 
    n,i:integer; 
    a:real; 
    z:array[1..100] of Real; 
begin 
Assign(input,'input.txt'); 
Reset(input); 
ReadLn(input,n); 
for i:=1 to n do Read(input, z[n]); 
Close(input); 
for i := 1 to n do z[i] := sqr(z[i])/2; 
for i := 1 to n do a := a + z[i]; 
Assign(output,'output.txt'); 
Rewrite(output); 
Write(output, a:7:3); 
Close(output)
end.