Задача на доработку

[KpeHDeJIb]

Задано натуральное число п. Найти количество натуральных чисел, не превышающих n и не делящихся ни на одно из чисел 2, 3, 5.

листинг:

program practice2;
uses crt;
var n,m,i:integer;
begin
clrscr;
read(n);
m:=0;
for i:=1 to n do
  if (i mod 2<>0)and(i mod 3<>0)and(i mod 5<>0) then 
    inc(m);
writeln(m);
readln;
end.

когда в скомпилированную прогу пишу любое число, то вылетает из программы
Что делать?

[_Dmitry]

замените read(n) на readln(n), иначе у вас не очищается буфер клавиатуры и срабатывает последний readln без ввода данных.