Написать программу: Вывести на экран первых N простых чисел.

program zz1;

var i, k, n, c, p: integer; / / задаем переменные целого типа

begin

write (' введите число n '); / / вводим с клавиатуры число

read (n);

k : = 1; / / задаем начальное значение для простого числа

p: = 0; / / задаем начальное значение для количества простых чисел

while p < n do / / организуем цикл, пока количество простых чисел не достигнет n

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 (p); / / увеличиваем количество простых чисел

end;

inc (k);

end;

end.