test914/base.pas

   1 var
   2   n,m,x,i,j,k,h,l,r,ans,a,b,p,q:longint;
   3   hash:array [1..3000,1..3000] of longint;
   4   f:boolean;
   5
   6 begin
   7   assign(input,'base.in'); reset(input);
   8   assign(output,'base.out'); rewrite(output);
   9   readln(n,m,x);
  10   for i:=1 to x do
  11     begin
  12       readln(a,b);
  13       hash[a,b]:=1;
  14     end;
  15   for i:=1 to n do
  16     for j:=1 to m do
  17       if hash[i,j]<>1 then
  18         begin
  19           k:=i-1; f:=true;
  20           while (k>0) and (hash[k,j]=0) do dec(k);
  21           h:=i-k;
  22           for l:=j-1 downto 1 do
  23             begin
  24               for q:=i downto k+1 do
  25                 if hash[q,l]=1 then begin f:=false; break; end;
  26               if not f then break;
  27             end;
  28           if not f then inc(l);
  29           if l=0 then l:=1; f:=true;
  30           for r:=j+1 to m do
  31             begin
  32               for q:=i downto k+1 do
  33                 if hash[q,r]=1 then begin f:=false; break; end;
  34               if not f then break;
  35             end;
  36           if not f then dec(r);
  37           if r>m then r:=m;
  38           if (r-l+1)*h>ans then ans:=(r-l+1)*h;
  39         end;
  40   writeln(ans);
  41   close(input); close(output);
  42 end.