fork(5) download

const Size=100;
Type TArray=array [1..Size] of real;
var n, i:integer;
    min, max, sum, vMin, vMax, vAvg: real;
 
procedure input(var n:integer;var TArray:array of real);
begin
  readln(n);
  for i:=0 to n do
    readln (TArray[i]);
end;
 
function Minimum(TArray: array of real):real;
begin
  min:=TArray[1];
  for i:=0 to n do begin
    if TArray[i+1] < min then min:=TArray[i+1];
    result:=min;
  end;
end;
 
function Maximum(TArray: array of real):real;
begin
  max:=TArray[1];
  for i:=0 to n do begin
    if TArray[i+1] > max then max:=TArray[i+1];
    result:=max;
  end;
end;
 
function Average(var sum:real):real;
begin
  result:=sum/2;
end;
 
procedure output(vMin, Vmax, Vavg:real);
begin
  writeln('Min T',vMin:0:1);
  writeln('Max T',vMax:0:1);
  writeln('Avg T',vAvg:0:2);
end;
 
 
 begin
   input(n, TArray);
   vMin:=Minimum(TArray);
   vMax:=Maximum(TArray);
   sum:=vMin+vMax;
   vAvg:=Average(sum);
   output(vMin, vMax, vAvg);
 end.       

prog.pas:1: warning: missing program header
prog.pas: In function `Minimum':
prog.pas:18: error: undeclared identifier `result' (first use in this routine)
prog.pas:18: error:  (Each undeclared identifier is reported only once
prog.pas:18: error:  for each routine it appears in.)
prog.pas:20: error: result of function `Minimum' not assigned
prog.pas: In function `Maximum':
prog.pas:27: error: undeclared identifier `result' (first use in this routine)
prog.pas:29: error: result of function `Maximum' not assigned
prog.pas: In function `Average':
prog.pas:33: error: undeclared identifier `result' (first use in this routine)
prog.pas:34: error: result of function `Average' not assigned
prog.pas: In main program:
prog.pas:45: error: variable access expected -- type name given
prog.pas:46: error: variable access expected -- type name given
prog.pas:47: error: variable access expected -- type name given

Standard output is empty