{* Задача 573 *}

Unit ZADACH573;
Interface
Implementation
Begin
 writeln('Средний радиус яйца домашней курицы 5 см, а инкубаторной – 4 см. Сколько инкубаторных яиц соответствует десятку домашних? Сколько сэкономит хозяйка, покупая десяток домашних яиц.');
End.

Program zadach573;

Uses zadach573.pas; {* Эту строку можно удалить *}
Uses crt; {* Подключение модулей *}
Var {* Необходимые переменные *}
  k : real;
  s : real;
Begin
  clrscr; {* Стираем всё с экрана *}
  s := (5 * 5*5 * 10) / (4 * 4*4);
  writeln(s : 2:1, ' инкубаторских ');
  writeln('яиц соответствуют 10 домашним.');
  writeln('Хозяка экономит в ', s / 10 : 2:2, ' раза');
  readkey; {* Ждем нажатия любой клавиши *}
End.