[guranvir]

Мне надо было написать код функции проверки числа на простоту. Вот написал:

Код:

function IsSimp(i:integer):boolean;
 var
 j:integer;
 begin
   for j := 2 to i - 1 do
   begin
   if (i mod j)=0 then
    begin
IsSimp:=true;
    end;
   end;
IsSimp:=false;
 end;    

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

Код:

 var
chis:integer;
begin
chis:=4;
if IsSimp(chis)=true then
begin
 writeln('Prostoe');
end;
readln;
end.

Если можно помогите разобраться, я вот не пойму разве функция не прекращает работу после IsSimp:=true;?Хотя вот если приписать exit в if то все ок, но не хотелось бы прибегать к таким мерам