Var
a,s,v:integer;
begin
writeln(введите сторону куба);
readln(a);
s:=6*a*a;
v:=a*a*a;
writeln(объем равен , v);
writeln( площадь, s);
readln;
end.
Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.