Вопрос помогите написать программу на паскале

Держите: $ cat more20.pas var n, evens: integer; more20: boolean; begin n := 0; evens := 0; repeat more20 := n > 20; read; if not odd then inc(evens) until more20 and (n > 20); writeln(evens) end. $ echo 1 2 3 4 21 5 6 21 22 | ./more20 4 Здесь посчитались числа 2, 4, 6, 22.