Вычеслите сумму квадратов всех четных чисел от1 до n

Question

Вычеслите сумму квадратов всех четных чисел от1 до n

Answer 1

var
  i, n, s: integer;
begin
  readln(n);
  for i := 1 to n do begin
    if(i mod 2 = 0) then s := s + sqr(i);
  end;
  writeln(s);
end.