Program FreD;

  var
     X : Integer;
     Y : FlOat;
     MoNKey: FixED;

  begin
    READ(X, Y, Monkey);
    Write('Well, I''ll be a monkey''s uncle!');
    Monkey := 3.14159*R^2;
    Write('''''');
    Write('The Area is', Monkey)
  end.