//  {$I+,Q+,R+,S-}
program Sorting_the_tombstones ;
  const
    maxn = 130000;
    mask : longint = 30000;
  var
    i,j,k,n,kk,t,ss  : longint;
    a  : array[1..maxn]of integer;
    aa : array[1..maxn]of byte;
    b  : array[0..maxn div 8]of byte;
  function gcd(a,b : longint ) : longint ;
    begin
      while b>0 do
        begin
          a:=a mod b;
          if a=0 then break;
          b:=b mod a;
        end;
      gcd:=a+b;
    end;
  begin
   //main;
  end.

look i only use such few various...but the online judge said i used 1009kb!!why?

You should use smallint instead of integer
In some compiler integer=longint(4 bytes)
Try smallint maybe you can get AC
goodluck!

Edited by author 31.07.2004 20:51

And because compiler uses about 350KB (-)