1.
var h,a,v,s,s1,s2:real;
begin
write('H='); readln(h);
write('a='); readln(a);
s1:=3*sqrt(3)*a*a/2;
s2:=3*a*sqrt(h*h+3/4*a*a);
v:=1/3*s1*h;
s:=s1+s2;
writeln('V = ',v:5:2,'  S = ',s:5:2);
end.

Пример:
H=5
a=3
V = 38.97  S = 74.10

2.
var v1,v2,d,a:real;
begin
write('Объем шара = '); readln(v1);
write('Объем куба = '); readln(v2);
d:=exp(ln(6*v1/pi)*(1/3));
a:=exp(ln(v2)*(1/3));
writeln('Диаметр шара = ',d:5:2);
writeln('Ребро куба = ',a:5:2);
if d<a 
 then writeln('Шар поместится в куб')
 else writeln('Шар не поместится в куб');
end.

Пример:
Объем шара = 25
Объем куба = 27
Диаметр шара =  3.63
Ребро куба =  3.00
Шар не поместится в куб