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

var a,b,s: real;

begin

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

readln(a);  

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

readln(b);

s: =a*b;

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

readln;  

end. 

наливаем в 5 литров в "5". переливаем его в "9". наливаем еще полное "5" и снова переливаем его в "9". в "5" остается 4л. переливаем сюда литр из "9" (итог: "9"=8, "5"=5) из "5" выливаем  все. переливаем сюда из "9".

итог: в "9" ровно 3 л.

первый для однократной записи

а второй для перезаписывания(тоесть на нем возможно перезаписывание)