Нужна помощь!!!
Роман написал программу на языке Pascal, фрагмент которой приведен ниже.

for i:=0 to 99 do num[i+1] :=i+1;
k:=0;
i:=1;
while k<7 do begin
if easy(num[i])=true
then k:=k+1;
i:=i+2;
end;
write(num[i-2]);

В программе он использовал две целочисленные переменные i и k , целочисленный массив num из ста элементов, с индексами от 1 до 100. Также Роман определил функцию easy() логического тип данных,которая возвращает истинное значение в случае, если переданный в нее целочисленный аргумент является простым числом , и ложное значение - в противном случае. Какое число будет выведено в результате выполнения этой программы?

А поподробнее можно?

Могу программу добавить.

Если можно

спасибо

19--------------------//Pascalfunction easy(a:longint):boolean;var  i:integer;begin  easy:=true;if a<2 then   easy:=false elsefor i:=1 to a div 2 do   if ((a mod i)=0) and (i<>1) then     easy:=false;end;vari, k: integer;num: array [0..100] of integer;beginfor i:=0 to 99 do   num[i+1] := i+1;  k:=0;  i:=1;while k<7 do beginif easy(num[i])=true then   k:=k+1;i:=i+2;end;  write(num[i-2]);end.