Помогите с паскалем

[Vanger]

помогите решить информатику...дуб дубом в этом, нинаю как(( задали решить

[alex_fcsm]

var i,n,k:integer;
begin
k:=0;
n:=5;
i:=n;
while i>=1 do
 begin
  k:=2*k+i;
  i:=i-1;
 end;
writeln(k);
end.

[alex_fcsm]

var i,n:integer;
    k:real;
    a:array[1..100] of real;
begin
writeln('input n');
readln(n);
for i:=1 to n do
 read(a[i]);
k:=0;
for i:=1 to n do
 k:=k+sqr(a[i]);
writeln('Length',sqrt(k):6:2);
end.

[Vanger]

Огроменное спасибо!!!!!Добрейшей души человек!