Tfe

Old stuff/ecole_etude_fac_de_pau/licence_2/pascal/01.pas

program max_min;

var max,min,a,b,c,d:integer;
begin
read(a,b,c,d);
max:=a;
min:=a;

if  min>b then  min:=b           
 else                                            
    if max<b then max:=b; 
    
if  min>c then  min:=c           
 else                                            
    if max<c then max:=c; 
    
if  min>d then  min:=d           
 else                                            
    if max<b then max:=d; 

writeln("max=",max," et min=",min);    
    
end.