На вход программы поступает неизвестное количество чисел целых, ввод заканчиваем нулем. определить сколько полученно чисел которые делятся на 3

Вот держите:var     a,k:integer;beginrepeatreadln(a);if a mod 3 = 0 then inc(k);until a=0;writeln(k-1);end.