MeanTest.dpr.txt
program MeanTest;
{$APPTYPE CONSOLE}
uses
SysUtils;
(** Returns the average of string S character codes. *)
function Mean(const s: String): integer;
var
i, L: integer;
begin
Result:= 0;
L:= Length(s);
for i:= 1 to L do Inc(Result, Ord(s[i]));
if (L<>0) then Result:= Result div L;
end;…