program ProstChisla
var N, i, a, j, x: integer
begin
clrscr;
writeln ("введите колличество необходимых простых чисел N=");
readln (N);
a:=3;
i:=3;
x:=0;
if N=0 do writeln ("простых чисел не найдено") else
if N=1 do writeln ("1") else
if N=2 do begin; writeln ("1"); writeln ("2"); end; else
writeln ("1");
writeln ("2");
while i<=N do
begin;
for j:=2 to a-1 do
if (a mod j<>0) then x:=x+1 else x:=x+0;
if x=0 then
begin;
writeln (a);
i:=i+1;
end;
a:=a+1;
end;
end.