{* Задача 544 *}

Unit ZADACH544;
Interface
Implementation
Begin
 writeln('Полторы кошки за полтора часа съедают полторы мышки. Сколько мышек съедят X кошек за Y часов?');
End.

Program zadach544;
Uses crt; {* Вызов внешних функций *}
Var {* Объявление переменных *}
  x : real;
  k : real;
  y : real;
Begin
  Clrscr; {* Очистка экрана *}
  Write ('кошек:');
  Read(x);
  Write ('время (час.):');
  Read(y);
  k := 2 / 3*x * y;
  Writeln(x : 3:2, ' кошек за ', y : 3:2, ' час. съедят ', k : 3:2, ' мышей');
  Readkey; {* Нажмите любую клавишу *}
End.