Не могу понять почему прерывается компиляция это кода
Код: Выделить всё
program cipher;
var i,j,del:integer;
fi,fo:text;
begin
assign(fo,'cipher.out');
rewrite(fo);
for i:=1 to 255 do begin
del:=0;
for j:=1 to i do
if i mod j = 0 then inc(del);
if del=2 then writeln(fo,i,' ');
end;
close(fo);
end.
Например в ABC Pascal код работает безпроблемно.
Заранее благодарен.
//-------------------------------------------------
Ничего не понимаю, вернулся к этой задаче -- компиляет без проблем!
Может выручила тривиальная перезагрузка freepascal?
В любом случае вопрос снят. Всем СПАСИБО!!!