ГАММА ЁПТЫТЬ

program Formula_eptit;

function power(x: Real; y: Integer): Real;
var
   i: Integer;
   r: Real;
begin
   r := 1;
   for i := 1 to y do
      r := r * x;
   power := r;
end;

function Gamma_ept(x, a, b, h: Real): Real;
begin
   Gamma_ept := 0.7*a*((4*pi*power(b, 3)*h) / 3*sqrt(power((sqr(h)+sqr(x)), 3));
end;

var
   x: Real;

begin
   x := 0;
   while x <= 200 do
   begin
      WriteLn('x = ', x, ' y = ', Gamma_ept(x, 0.5, 20, 35));
      x := x + 20;
   end;
   WriteLn;
   ReadLn;
end.