Record

program File_teks8;

uses
WinCrt;

Type data = array[1..100] of integer;

Var F1,F2 : Text;
x,n : Integer;
nilai : data;


Function Maksi(A:data; n:integer): Integer;
var m,i : integer;
begin
m:=A[1];
for i:=2 to n do
if m maksi := m;
end;

Function Mini(A:data; n:integer): Integer;
var m,j : integer;
begin
m:=A[1];
for j:=2 to n do
if m>A[j] then m:=A[j];
mini := m;
end;


Function Rata(A:data; n:integer): Real;
var k : integer;
r : real;
begin
r:=0;
for k:= 1 to n do
r := r + A[k];

r:=r/n;
rata := (r);
end;

begin
assign(F1,'D:\My Documents\input5.txt');
reset(F1);
assign(F2,'D:\My Documents\output5.txt');
rewrite(F2);
readln(F1,n);
For x:=1 to n do
readln(F1,nilai[x]);

writeln(F2,'MAX : ',maksi(nilai,n));
writeln(F2,'MIN : ',mini(nilai,n));
writeln(F2,'Rata: ',rata(nilai,n):0:0);

Close(F1);
Close(F2);
end.