Тема: Помилка - exitcode 201 pascal!!!
Будь ласка допоможіть!!!! Видає таку помилку exitcode 201!
Free Pascal!
program D;
var i,j:integer;
n:longint ;
begin
readln(n);
j:=0;
for i:=1 to n do
begin
if ((i mod 2 <> 0) and (i mod 3 <> 0) and (i mod 5 <> 0))
then j:=j+1;
end;
writeln(j);
readln;
end.