Program Fred;
{This is my very favorite program of all time!}

  var
    X : Ingeter;
    Y : Float;
    Monkey : Fixed;

  begin
    Read(X, Y, Z);
    X := 3.14159*Y*Y - (45 div 82 * (Monkey + 5)) -(3);
    Write('The computed value is', X)
    {At this time the program is done.
     In case you can't figure this out for yourself.}
  end.