var
price, a, b:real;
begin
write('Введите стоимасть 1 кг краски '); readln(price);
write('Введите длину комнаты '); readln(a);
write('Введите ширину комнаты '); readln(b);
writeln('Стоимость покараски пола комнаты составляет ', price * 0.15 * a * b);
end.
var
price, a, b:real;
begin
write('Введите стоимасть 1 кг краски '); readln(price);
write('Введите длину комнаты '); readln(a);
write('Введите ширину комнаты '); readln(b);
writeln('Стоимость покараски пола комнаты составляет ', price * 0.15 * a * b);
end.