{* Задача 148 *}

Unit ZADACH148;
Interface
Implementation
Begin
 writeln('Женщина шла на базар и разбила яйца, лежавшие у неё в корзине Она сказала, что не знает сколько яиц у неё было, но когда она брала по 2, 3, 4, 5 и 6 яиц то оставалось в остатке одно.Когда же она брала по 7 яиц , то ничего не оставалось в остатке. Сколько яиц могло быть в корзине ');
End.

Program pas0;

Uses zadach148.pas; {* Эту строку можно удалить *}
Uses crt; {* Подключаем внешние файлы *}
Var {* Необходимые переменные *}
  i : longint;
Begin
  clrscr; {* Очищаем экран *}
  textcolor(10); {* Выбрать Светло-зеленый цвет текста *}
  For i := 1 To 5000 Do {* Увеличиваем i от 1 до 5000 с шагом 1 *}
    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.