{**********************************************************}
{                                                          }
{     This Program Calculates the Square, Square Root and  }
{       Cube of a number x                                 }
{                                                          }
{     Written By :  Charla Beaulieu   Date :  Feb 15, 99   }
{                                                          }
{**********************************************************}


Program Sum;

Uses WinCrt;

Var  x, square, square_root, cube : real;

Begin

     WriteLn ('Hello, please enter a number and my program will find its ');
     WriteLn ('square, its square root, and its cube');
     Writeln;
     Readln (x);
     Writeln;
     square:=sqr(x);
     square_root:=sqrt(x);
     cube:=(x*x*x);
     WriteLn ('The square of ',x:0:2, ' is ',square:0:2);
     Writeln;
     WriteLn ('The square root of ',x:0:2, ' is ',square_root:0:2);
     Writeln;
     WriteLn ('The cube of ',x:0:2, ' is ',cube:0:2);
     Writeln;
     Writeln ('Thank you for using my program')

End.