Bladeren bron

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

michael 25 jaren geleden
bovenliggende
commit
99789617ae
1 gewijzigde bestanden met toevoegingen van 2 en 0 verwijderingen
  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
     C[i]:=I;
   Writeln ('Average :',Average(c));  
+  Write ('Type of return value is always same as type of argument:');
+  Writeln(high(high(word)));
 end.