Нужно написать условие задачи. Задача решена, вот её решение. + надо написать. . Помогите пожалуйстаа!

Question

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 нужен для ..

Байрам · Accepted Answer

нет программы целиком, трудно разобраться