Напишите программу пожалуйста
begin
ReadSeqInteger(ReadInteger()).Where(x->x mod 4 = 0).Count.Println;
end.