можешь не
var
a,n: integer;
begin
readln(a);
while a< > 0 do
if (a mod 5=0)or (a mod 7=0)then inc(n);
end;
writeln(n);
end.
