Разработать программу поиска трех простых чисел, предшествующих числу М, заданному...

Question

Разработать программу поиска трех простых чисел, предшествующих числу М, заданному пользователем, причем М>= 10.

Answer 1

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

   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