написал свою функцию проверяющею простоту числа, а она не работает. Покажите пожалуйста ошибку.
var
den,d:integer;
function simple(a:integer):boolean;
var
i: integer;
begin
simple:=true;
i:=2;
while (i< (trunc(sqrt(a)) )) and (simple=true)do begin
if a mod i = 0 then simple:=false;
inc(i);
end;
end;
begin
ReadLn(d);
for den:=0 to d do begin
if simple(den)=true then
writeLn(den);
end;
ReadLn(d);
end.
Заранее благодарен
ЗЫ да, я знаю про то что в ЧаВо есть подобная функция..
Сообщение отредактировано: compiler -