подскажите формулы. Дана длина ребра куба. Найти площадь грани, площадь полной поверхности и объем этого куба.Блок-схема

  • const r = 5; {длина ребра куба}
    begin
    Readln
    end.

    или это:

    WriteLn('Площадь грани:',r*r,' Полная площадь:',6*r*r,' Объём:', r*r*r);

    5read(a);
    6 s:=6*(a*a);
    7 v:=a*a*a;
    8 writeln('площадь боковой поверхности куба: ',s);
    9 writeln('объем куба: ',v);
    10 end.

  • uses crt;

    2var a,s,v:real;
    3 begin

    4write('введите длинну ребра куба: ');