Составить программу ввода значений и вычисления длины вектора(массивы)

[volkodaf]

Дан вектор ,i=1,...,50.
Составить программу ввода значений и вычисления длины этого вектора по формуле

[Mad_Cat]

var z:array[1..50] of real;
i:integer;l:real;
begin
l:=0;
for i:=1 to 50 do
begin
readln(z[i]);
l:=l+z[i]*z[i];
end;
l:=sqrt(l);
writeln(l);
readln;
end.