Anton Mironov
Нужно написать условие задачи. Задача решена, вот её решение. + надо написать. . Помогите пожалуйстаа!
program Prog; {Заголовок программы}
var kch,d,kd,N,ch :longint; {Описание переменных}
begin {Начало исполняемой части}
write('Введите натуральное число N: ');
readln(N);
if N<1
then writeln('Это число не натуральное! ')
else begin
write(' 3');
kch:=1;
ch:=5;
repeat
kd:=0;
for d:=2 to ch-1 do if ch mod d =0 then kd:=kd+1;
if kd=0 then begin
write(', ',ch);
kch:=kch+1
end;
ch:=ch+1;
until kch=N;
end;
writeln;
end.______________N- это ...
kch- это ...
d- это ...
kd- это ...
ch- это ...
цикл repeat
...
until kch=N предназначен для ...
цикл for d:=2 to ch-1 нужен для ..