program raf105;
var m,i,j,x,y:integer;
begin
write('Введите число больше 9: ');
readln(m);
writeln;
writeln('Вывод: ');
for i:=m downto 1 do
begin
if x<3
then
begin
y:=0;
for j:=2 to i-1 do
if (i mod j)=0
then y += 1;
if y=0
then
begin
x +=1;
writeln(i);
end;
end;
end;
end.
Язык PascalABC
