Олимпиадная задача по программированию. PascalABC.NET

program delehka;
var
  i, n, s, ma, mi, sl, a: longint;
begin
  readln(n); 
  mi := 1000000001; 
  ma := -1;
  for i := 0 to n - 1 do
  begin
    read(a); 
    if ma < a Then
      begin
        ma := a;
        s := 0;
      end;      
    if mi > a Then
      begin
        mi := a;
        sl := 0;
      end;    
    if a = ma then 
      inc(s);
    if a = mi then 
      inc(sl);
  end;
  if ma = mi then 
    write(0, ' ', n, ' ', 0)
  else   
    writeln(s, ' ', sl, ' ', n - s - sl);  
end.

program delehka;
 
var
  i, n, s, ma, mi, sl, a: int64;
 
begin
  readln(n); 
  mi := 1000000001; 
  ma := -1;
  for i := 1 to n do
  begin
    read(a);
    if ma < a Then
    begin
      ma := a;
      s := 1;
    end
    else
    if a = ma then    
      inc(s);    
    
    if mi > a Then
    begin
      mi := a;
      sl := 1;
    end
    else
    if a = mi then 
      inc(sl);   
    
  end;
  if ma = mi then 
    write(n, ' 0 0')
  else   
    writeln(s, ' ', sl, ' ', n - s - sl);  
end.