Написать программу для PASCAL

найти полную площадь прямоугольной(прямой) призмы

Площадь призмы равна 2(lw + wh + lh)

program Prizma;

var w, l, h, s: real;

begin

 writeln('Введите ширину');

 read(w);

 writeln('Введите длину');

 read(l);

 writeln('Введите высоту');

 read(h);

 s := 2 * (l * w + w * h + l * h);

 writeln('Площадь призмы: ', s);

end.

Объяснение:

lw + lw + wh + wh + lh + lh = 2(lw + wh + lh)