paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-18 16:49:20 +02:00
Code Issues Packages Projects Releases Wiki Activity

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

Browse Source
This commit is contained in:
michael 2000-05-18 16:23:50 +00:00
parent edd14ed266
commit 99789617ae
1 changed files with 2 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
docs/refex/ex80.pp
View File

@ -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.