Листинг  программы

program z55;

uses crt; {Опред.наимен.число,кот.при делении

на 2,3,4,5,6,7,8,9 дает одинаковые остатки-1}

var i,j,n,a,k:longint;{ввод 3000 и больше отв 2521}

   begin

   clrscr;

       write('введите n=');readln(n);

          for i:=10 to n do

             begin

             k:=0;

             for j:=2 to 9 do

               begin

               a:=i mod j;

               if a=1

                  then k:=k+1;

               if k=8 then

                  begin

                  writeln('число=',i);

                  readln;halt;

                  end;

                end;

              end;

          readln;

    end.