ВЫЧИСЛИТЬ ПОЛОЩАДЬ ПОВЕРХНОСТИ КУБА И ЕГО ОБЪЕМ,если ребро( h)) ВВОДИТСЯ С...

Question

ВЫЧИСЛИТЬ ПОЛОЩАДЬ ПОВЕРХНОСТИ КУБА И ЕГО ОБЪЕМ,если ребро( h)) ВВОДИТСЯ С КЛАВИАТУРЫ.ВЫЧИСЛИТЬ, заполнить таблицу (начальные значения задать самостоятельно) H(cм) Sкуба(см) Vкуба(см)
Срочно помогите

Answer 1

Var h,s,v:integer;
begin
write('h=');readln(h);
s:=6*h*h;
v:=h*h*h;
writeln(' h   s    v');
writeln(h:2,s:5,v:5);
end.

Пример:
h=5
 h   s    v
 5  150  125