const nenastaven = -1;

begin

{ nacteni dat do pole dira[1..n] 
  nalezeni nejlevejsi a nejpravejsi diry (min a max)
  nastaveni poli levy[1..n] a pravy[1..n] na konstantu nenastaven }

for i:=1 to n do begin
                   usek := ( dira[i] - min ) / ( max - min ) * (n-1);
                   if ( levy[usek] < dira[i] ) or 
                      ( levy[usek] = nenastaven ) then levy[usek]:=dira[i];
                   if ( pravy[usek] > dira[i] ) or
                      ( pravy[usek] = nenastaven ) then pravy[usek]:=dira[i];
                 end;

vysledek:=0;
zarazka:=pravy[1];

for i:=2 to n do if ( levy[i] <> nenastaven ) then 
                   begin
                     if ( levy[i] - zarazka > vysledek ) then
                       vysledek:=levy[i]-zarazka;
                     zarazka:=pravy[i];
                   end;

{ Vysledek je v promenne vysledek }

end.