Прямоугольный ящик заполнения цилиндрическими гвоздями. Определить процент заполнения ящике металлом. Для упрощения задачи считать, что гвозди не имеют острого конца и шляпки — Delphi(Делфи)

program Project2;
{$APPTYPE CONSOLE}
uses
  SysUtils;
 
var r,h,a,b,c,v1,v2,x:real;
 
procedure V_cviaha;
var v1:real;
procedure V_jashika;
var v2:real;
procedure raschot_procenta;
var x:real;
begin
v1:=pi*sqr(r)*h;
end;
begin
v2:=a*b*c;
end;
begin
x:=100-((v1*100)/v2);
if (h<a) or (h<b) or (h<c) then
writeln ('obem (vidpovid) =',x:2:2,'%');
end;
begin
write ('vvedit radius cviaha: '); read (r);
write ('vvedit dovgynu cviaha: '); read (h);
V_cviaha;
write ('vvedit dovgynu jashika: '); read (a);
write ('vvedit shyrinu jashika: '); read (b);
write ('vvedit dlubinu jashika: '); read (c);
if (h>a) or (h>b) or (h>c) then
writeln ('vy ne smogete pologyt cviah v etot jashik'); 
V_jashika;  
raschot_procenta (x);
readln;
readln;
end.