Это информатика?
Если да,то
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.
