{* Задача 204 *}

Unit ZADACH204;
Interface
Implementation
Begin
 writeln('Цена 1 кг сыра К рублей. Программа определения стоимости 100 грамм, 200, 300, 400, 500, 600, 700, 800 грамм сыра.');
End.

Program pas13493;

Uses zadach204.pas; {* Эту строку можно удалить *}
Var {* Необходимые переменные *}
  s : real;
  v : real;
  t : real;
Begin
  write('cost=');
  readln(s);
  write('mass, g=');
  readln(v);
  t := s / 1000 * v;
  writeln('price=', t : 0 : 4);
End.