TURBO Pascal

var
i,N:integer;
begin
writeln(Vvedite N);
readln(N);
for i:=1 to n do
if (i mod 2<>0)and(i mod 3<>0)and(i mod 5<>0)then writeln(i);
readln
end.

Данная программа выдает все числа, от 1 до заданного (n), которые не делятся без остатка на 2,3,5. что нужно исправить, чтобы программа выдавала только количество этих чисел.
Заранее спасибо.

Заведи переменную счетчика, например kol

if (i mod 2<>0)and(i mod 3<>0)and(i mod 5<>0)then
   inc(kol);
writeln(kol);

Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.