Question

составить программу для решения следующей задачи:дана длина ребра куба.найти объем куба и площадь его боковой поверхности.

Answer 1

var a,v,s:real;
begin
write('Введите длину ребра: ');
readln(a);
v:=a*a*a;
s:=4*a*a;
writeln('v=',v);
writeln('s=',s);
end.