var

  price, a, b:real;

begin

  write('Введите стоимасть 1 кг краски '); readln(price);

  write('Введите длину комнаты '); readln(a);

  write('Введите ширину комнаты '); readln(b);

  writeln('Стоимость покараски пола комнаты составляет ', price * 0.15 * a * b);

end.