PROGRAM PROG11;
{$U+    Copyright (C), 1985 by Lyle Faurot.  All rights reserved.

    New Topics: FUNCTION declaration
                User defined function

}

VAR
  No : Integer;

FUNCTION Cube(Number:Integer) : Integer;

BEGIN   {Cube}
  Cube := Number * Number * Number;
END;    {Cube}


BEGIN   {PROG11}
  Write('Enter a number: ');
  ReadLn(No);
  WriteLn('The cube is: ', Cube(No) );
END.    {PROG11}