Program ploshad;
var s,r,h v:real;
begin
Write('Введите данные');
// тут просто вводишь что известно
// находим радиус
r:=sqrt(v/(Pi*h)); // Паскаль знает что такое Pi
s:=2*Pi*r*h;
writeln('Площадь боковойповерхности = ',s);
end;
Program ploshad;
var s,r,h v:real;
begin
Write('Введите данные');
// тут просто вводишь что известно
// находим радиус
r:=sqrt(v/(Pi*h)); // Паскаль знает что такое Pi
s:=2*Pi*r*h;
writeln('Площадь боковойповерхности = ',s);
end;