{* Задача 589 *}

Unit ZADACH589;
Interface
Implementation
Begin
 writeln('Фермер намерен купить корову, дающую не менее L литров молока ежедневно с жирностью не менее K процентов. Написать алгоритм и программу выбора коровы.');
End.

Program zadach589;

Uses zadach589.pas; {* Эту строку можно удалить *}
Uses crt; {* Подключение модулей *}
Var {* В работе нам потребуются переменные: *}
  l  : real;
  k  : real;
  k1 : real;
  l1 : real;
Begin
  clrscr; {* Стираем всё с экрана *}
  Write('Требуемый надой в литрах L=');
  read(l);
  Write('Требуемая жирность молока K=');
  read(k);
  Write('Фактический надой в литрах L1=');
  read(l1);
  Write('Фактическая жирность молока K1=');
  read(k1);
  If (l1 > = l) And (k1 > = k) Then
    write('корову можно купить')
  Else write('корову покупать не рекомендуется');
    readkey; {* Нажмите любую клавишу *}
End.