Дано к. Найти среднее геометрическое первых к четных чисел — Pascal(Паскаль)

var i,summ,k,g:integer;
 
begin
  summ:=0;
  g:=0;
  
  writeln('k=');
  read(k);
 
  for i:=1 to k do
    if i mod 2=0 then
    begin
      summ:=summ+i;
      inc(g);
    end;
 
  writeln('среднее геометрическое первых к четных чисел - ',  exp(ln(summ)*(1/i)) );
end.