begin
var n := ReadInteger;
var s := 0;
var i := 2;
while i <= n do
begin
s := s + i * i;
i := i + 2;
end;
Print(s)
end.
Не следует задавать n > 1000
А) гнездо
б) температура
в) ковёр
В первом 4 во 2 -4 вроде так
в кино ходили 14 человек, в музей 14 человек, 2 человека не ходили никуда