Рассчитать количество материи для изготовления чехлов на комплект мягкой мебели на паскале abc нужен код программы

//PascalABC.Net 3.2.0.1467
begin
    var h := ReadlnReal('Высота =');
    var w := ReadlnReal('Ширина =');
    var l := ReadlnReal('Длина =');
    Println('Площадь поверхности = ', 2 * (w * h + w * l + h * l));
end.