记录编号	27531	评测结果	AWWWWTTTTT
题目名称	横幅	最终得分	10
用户昵称	11111111	是否通过	未通过
代码语言	Pascal	运行时间	5.061 s
提交时间	2011-09-26 19:31:08	内存使用	0.14 MiB

program aa;
var
 a,b,c,d,e,i,l1,l2,w,h,j,total,biao,n,m,max,sum:longint;
 l:array[0..1500] of longint;
 t:array[0..1500] of real;
 f1,f2:text;
{****************************************}
procedure try(i,j:longint);
var
 k1,k2,f:integer;
 a,b:longint;
begin
 for k1:=i-1 to w do
 for k2:=j to h do
 begin
  a:=w+1-k1;b:=h+1-k2;     {}
  if (a*a+b*b>=d)and(a*a+b*b<=e) then {判断距离是否在规定长度内}
  if a>b then
  begin
   if (a=1)or(b=1) then inc(max) else
   if b<>0 then
   if a mod b<>0 then begin inc(max); inc(max); end;
  end
  else
  if (a=1)or(b=1) then inc(max) else
  if a=1 then inc(max);
 end;
end;
{****************************************}
begin
 assign(f1,'banner.in');
 assign(f2,'banner.out');
 reset(f1);
 rewrite(f2);
 total:=1;
 readln(f1,w,h,l1,l2);
 d:=l1*l1;
 e:=l2*l2;
 max:=0;
 if l1<=1 then max:=w*(h+1)+h*(w+1);
 for i:=1 to w+1 do
  for j:=1 to h+1 do
  try(i,j);
 writeln(f2,max);
 close(f1);close(f2);
end.