Function Square(Number: Real): Real;
 begin
  Square := Number * Number;
 end;