program expressions;

uses
    SysUtils;

var
  s: string;
  a, b, c: single;
  result: single;

begin
  a := 10;
  b := 15;
  c := 20;

  result := (1/4)*sqrt((a+b+c)*(b+c-a)*(a+c-b)*(a+b-c));
  Writeln('Area of triangle with'
         + ' sides ' + FloatToStr(a)
         + ', '      + FloatToStr(b)
         + ' and '   + FloatToStr(c)
         + ' is '    + FloatToStr(result) );

  result := (1/3)*pi*a*(b*b);
  Writeln('Volume of cone with'
         + ' height '     + FloatToStr(a)
         + ' and radius ' + FloatToStr(b)
         + ' is '         + FloatToStr(result) );

  result := (4/3)*pi*a*b*c;
  Writeln('Volume of ellipsoid with'
         + ' radiuses ' + FloatToStr(a)
         + ', '         + FloatToStr(b)
         + ' and '      + FloatToStr(b)
         + ' is '       + FloatToStr(result) );

  Readln(s);
end.