program CubicDecimeterToCubicMeter;
varcubicDecimeter, cubicMeter: real;
beginwriteln('Введите объем в кубических дециметрах: ');readln(cubicDecimeter);
cubicMeter := cubicDecimeter / 1000;
writeln('Объем в кубических метрах: ', cubicMeter:0:2);
end.
program CubicDecimeterToCubicMeter;
var
cubicDecimeter, cubicMeter: real;
begin
writeln('Введите объем в кубических дециметрах: ');
readln(cubicDecimeter);
cubicMeter := cubicDecimeter / 1000;
writeln('Объем в кубических метрах: ', cubicMeter:0:2);
end.