Informatika (2 семестр) / 1 аттестация / Program obiem figur

{Вычисление объема геометрических фигур}
Program OBM;
  const Pi=3.14;
  var r, h, a, b: real;
  Function V1(r1, h1: real): real;      {Объем конуса}
    begin
     V1:=(1/3)*Pi*SQR(r1)*h1;
    end;
  Function V2(a1: real): real;          {Объем куба}
    begin
     V2:=Power(a1,3);
    end;
  Function V3(a1, b1, h1: real): real;  {Объем параллелепипеда}
    begin
     V3:=a1*b1*h1;
    end;
  Function V4(r1: real): real;          {Объем шара}
    begin
     V4:= (4/3)*Pi*Power(r1,3);
    end;
Begin
 r:=1/SQRT(Pi);
 h:=3;
 writeln('Объем конуса = ', V1(r,h):8:3);
 a:=3;
 writeln('Объем куба = ', V2(a):8:3);
 a:=1;
 b:=2;
 h:=3;
 writeln('Объем параллелепипеда = ', V3(a,b,h):8:3);
 r:=1;
 writeln('Объем шара = ', V4(r):8:3);
 writeln;
End.