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