{* Задача 550 *}

Unit ZADACH550;
Interface
Implementation
Begin
 writeln('Универмаг в ноябре продал товаров на А млн. р., что на 15% больше, чем в октябре. На какую сумму были проданы товары в октябре?');
End.

Program zadach550;

Uses zadach550.pas; {* Эту строку можно удалить *}
Uses crt; {* Вызов внешних функций *}
Var {* Объявление переменных *}
  a : real;
  b : real;
Begin
  clrscr; {* Очистка экрана *}
  write('a=');
  read(a);
  b := a * 100 / 115;
  writeln('Выручка за октябрь ', b : 2:3, ' млн.руб.');
  readkey; {* Ждем нажатия любой клавиши *}
End.