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

program z13;

{Женщина шла на базар и разбила яйца,лежавшие у неё в корзине

 Она сказала,что не знает сколько яиц у неё было,но когда она

 брала по 2,3,4,5 и 6 яиц то оставалось в остатке одно.Когда

 же она брала по 7 яиц ,то ничего не оставалось в остатке.

 Сколько яиц могло быть в корзине}

 uses crt;

 var i:longint;

  begin

   clrscr;textcolor(10);

    for i:=1 to 5000 do

     if (i mod 2=1)and(i mod 3=1)and

        (i mod 4=1)and(i mod 5=1)and

        (i mod 6=1)and(i mod 7=0)then

  begin

         writeln('может быть:',i);

        end;

        write('Ну смотря какая у женщины корзина!!!');readln;

  end.