Найти 10 первых простых чисел больших 100 в паскале

Предыдущий
вопрос Следующий
вопрос

program FindPrimeNumbers;

va
count, num, i, j: integer
isPrime: boolean;

begi
count := 0
num := 101;

while count < 10 d
begi
isPrime := true;

for i := 2 to num div 2 d
begi
if num mod i = 0 the
begi
isPrime := false
break
end
end
if isPrime the
begi
writeln(num)
count := count + 1
end
num := num + 1;

end
end.