Помогите пожалуйста! Найти 100 первых простых чисел. Нарисовать блок-схему алгоритма к задаче

Единственное-тут выводит n простых чисел

Все, поменял под Вас

спасибо, огромное

Напишу программу на паскале, блок схему нет возможности нарисоватьP.S inc - это увеличение переменной на единицу. Удачи по иформатике)_____________________________________________________________var i, k, c, pr: int64; begin   k := 1;   pr := 0;   while pr < 100 do begin c := 0;     for i := 1 to k do begin       if k mod i = 0 then inc(c) end;     if c = 2 then begin write(k, ' ');       inc(pr) end;     inc(k) end;end.