К составляющей проведения реструктуризации из основных составляющих являются человеческий капитал

program qq;

uses crt;

const pi=3.14;

var v,r,h,l,s:integer;

begin

clrscr;

writeln('введите r,h,l');

readln(r,h,l);

V:=trinc((pi*sqr(r)*h)/3);
S:=pi*r*l;

writeln('плщадь равна',p,' объем равен',v);

readln

end.

смотри в прграмме есть оператор функция trinc если училке не понравится то v:=((pi*sqr(r)*h)) div 3;