Browse Source

+ Added line to show that type of return value is same as argument

michael 25 years ago
parent
commit
99789617ae
1 changed files with 2 additions and 0 deletions
  1. 2 0
      docs/refex/ex80.pp

+ 2 - 0
docs/refex/ex80.pp

@@ -34,5 +34,7 @@ begin
   For I:=Low(C) to High(C) do
   For I:=Low(C) to High(C) do
     C[i]:=I;
     C[i]:=I;
   Writeln ('Average :',Average(c));  
   Writeln ('Average :',Average(c));  
+  Write ('Type of return value is always same as type of argument:');
+  Writeln(high(high(word)));
 end.
 end.