Вычислите сумму квадратов четных натуральных чисел.
решите пожалйста,на ABC паскале.

var

i, s, n:integer;

begin

write('Введите последнее натуральное число (счет идет от 1 до n): ');

readln(n);

for i:=1 to n do

if i mod 2=0 then

begin

s:=sqr(i);

writeln(i,' ');

end;

end.