Сколько ягод соберет Винни-Пух?

var
a:array[1..100,1..100]of longint;
up,left,right,down:boolean;
y,x,m,l,r,d,u,q,i,n,j:longint;
begin
readln(n,m);
 
left:=false;
down:=false;
right:=true;
up:=false;
l:=1;
r:=m;
d:=n;
u:=2;
q:=1;
a[1,1]:=1;
j:=1;
i:=1;
readln(y,x);
// заполняю массив числами по спирали 
while q<>(n*m) do begin
    if right then begin
        inc(q);
        inc(j);
        a[i,j]:=q;
        if q=(n*m) then break;
        if j=r then begin
            dec(r);
            right:=false;
            down:=true;
        end;
    end;
    if down then begin
        inc(q);
        inc(i);
        a[i,j]:=q;
                if q=(n*m) then break;
        if i=d then begin
            dec(d);
            down:=false;
            left:=true;
        end;
    end;
    if left then begin
        inc(q);
        dec(j);
        a[i,j]:=q;
                if q=(n*m) then break;
        if j=l then begin
            inc(l);
            left:=false;
            up:=true;
        end;
    end;
    if up then begin
        inc(q);
 
        dec(i);
        a[i,j]:=q;
                if q=(n*m) then break;
        if i=u then begin
            inc(u);
            up:=false;
            right:=true;
        end;
    end;
 
 
end;
{for i:=1 to n do begin
for j:=1 to m-1 do write(a[i,j],' ');
writeln(a[i,m]);
end;              }
// вывожу число стояшия на этом месте
writeln(a[y,x])
end.