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

Это информатика?

Если да,то

1)var

2)a,n:integer;

3)begin

4)readln(a);

5)while a<>0 do

6)begin

7)if (a mod 5=0)or (a mod 7=0)then 8)inc(n);

9)readln(a);

10)end;

11)writeln(n);

12)end.