{* Задача 578 *}

Unit ZADACH578;
Interface
Implementation
Begin
 writeln('Составить программу, определяющую результат гадания на ромашке – «любит – не любит», взяв за исходные данные количество лепестков.');
End.

Program zadach578;

Uses zadach578.pas; {* Эту строку можно удалить *}
Uses crt; {* Вызов внешних функций *}
Var {* В работе нам потребуются переменные: *}
  n : integer;
Begin
  Clrscr; {* Стираем всё с экрана *}
  Write ('Введите кличество лепестков ромашки=');
  read(n);
  Write('"Мы считаем- любит- нелюбит": ответ-');
  If n / 2=int(n / 2) Then
    Write('Не любит')
  Else Write('Любит');
    Readkey; {* Ждем нажатия пользователя *}
End.