untuk satu

program Statistik1;
uses wincrt;
type suku=array [1..9999] of integer;
var
  s:suku;
  n,i,mi:integer;
  m:real;
  y:char;

procedure minimum(var mini:integer);
var i:integer;
begin
mini:=s[1];
for i:=2 to n do
if mini>s[i] then
mini:=s[i];
end;

procedure mean(var me:real);
var x:real;
begin
 x:=0;
 for i:=1 to n do
 begin
 x:=x+s[i];
 end;
 me:=x/n;
end;

begin
  repeat
  write('Berapa data : ');readln(n);
  i:=0;
  repeat
  i:=i+1;
  write('Data ke-',i,' : ');readln(s[i]);
  until i=n;
  minimum(mi);
  mean(m);
  writeln;
  writeln('MEAN : ',m:2:4);
  writeln('MIN  : ',mi:2);
  write('Hitung Kembali [Y/N] : ');readln(y);
  writeln;
  until y = 'N';
  readln;
end.