{* Задача 532 *}

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

Program zadach532;

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