program minetmax;

uses crt;

const long_tab = 3;
type table = array[1..long_tab] of integer;
	   

procedure saisie(var t:table);
var i,res : integer;
begin	  
   for i:=1 to long_tab do
   begin
      write(i,' ieme element ? : ');
      readln(res);
      t[i]:=res;
   end;
end;

procedure visu(t:table);
var i : integer;
begin 
   write('[');
   for i:=1 to long_tab-1 do
   begin
      write(t[i],' ; ')
   end;
   writeln(t[long_tab],']')
end;



function maxi(t:table):integer;
{...}
begin	  
   {...}
end;


procedure minmax_naif(t:table);
var min_tmp, max_tmp, i	: integer;
begin			
   {...}
end;

procedure minmax_sioux(L:table);
var min_tmp, max_tmp, i,k : integer;
begin			  
   if long_tab mod 2 = 0 then
   begin
      {...}
   end
   else
   begin
      {...}
   end ;
   writeln('mini2 : ',min_tmp);
   writeln('maxi2 : ',max_tmp)
end;

var t1 : table;
	  
begin
   clrscr;
   saisie(t1);
   readln;
   visu(t1);
   readln;
   writeln('maxi de tab : ',maxi(t1));
   readln;
   minmax_naif(t1);
   readln;
   minmax_sioux(t1);
   readln;
end.