Напишите программу вычисления площади боковой поверхности куба!

var a,b,s: real;

begin

writeln("введите высоту куба");

readln(a);  

writeln("введие длину стороны куба");

readln(b);

s: =a*b;

writeln("площадь равна",s);

readln;  

end. 

1. начало

2. оденься

3. выйти из дома

4. если есть машина

  5.то сесть в машину

  6. завести машину

  7.начать путь следования по дороге

  8.доехать до села

  9. выйти из машины

иначе 10. дойти до остановки

          11.дождаться автобуса

          12. зайти в автобус

          13. доехать до села

          14. выйти из автобуса

15. конец

var

a,b,c: real;

begin

readln(a,b,c);

writeln((a+b+c)/3);

end.