program lol;
var c,i,n,k:integer;
begin
writeln('Введите простое число = ');
readln(n);
writeln('Вывод: ');
for c:=2 to n-1 do
begin
i:=0;
for k:=1 to c do if (c mod k)=0 then i:=i+1;
if i=2 then
writeln(c);
end
end.

uylia7    3   22.09.2021 16:10    1