Question

дана длина ребра куба. Найти объем куба и площадь его боковой поверхности .

Answer 1

var
a,s,v:integer;
begin
writeln('введите сторону куба');
readln(a);
s:=6*a*a;
v:=a*a*a;
writeln('объем равен ', v);
writeln( 'площадь', s);
readln;
end.

Answer 2

Ps коментарии записываются в {} таких скобках