Напишу программу на паскале, блок схему нет возможности нарисовать
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.