Кубические дециметры в кубические метры ... решить в паскале ABC

var

dm : real; / / объявляем переменную, в которой будем хранить значение кубических дециметров

m : real; / / объявляем переменную, в которой будем хранить значение кубических метров

begin

writeln ('Введите количество кубических дециметров:'); / / выводим на экран текстовую строку

readln (dm); / / вводим с клавиатуры значение кубических дециметров

m : = dm/1000; / / переводим кубические дециметры в кубические метры

writeln (dm, ' дм3 = ', m, ' м3'); / /вывод на экран строки соответствия куб. м. и куб. дециметров.

end.