Begin
write(ReadSeqInteger(ReadInteger()).Where(x -> x mod 3 = 0).Sum);
end.
трех зайцев по углам, двоих вдоль стен
Var
x, y: real;
begin
Write('Введите через пробел координаты точки (x,y): ');
Readln(x, y);
Write((y >= 0) and (y <= 4 - abs(x)))
end.
Тестовое решение:
Введите через пробел координаты точки (x,y): 1 3.1
False
Введите через пробел координаты точки (x,y): -1 2.9
True
12 рукопажатий. Судя по логике. Есть ли в твоем вопросе изюминка, не знаю.