编译通过...

├ 测试数据 01：答案正确... 0ms

├ 测试数据 02：答案正确... 0ms

├ 测试数据 03：答案错误...程序输出比正确答案长

├ 测试数据 04：答案正确... 0ms

├ 测试数据 05：答案正确... 0ms

├ 测试数据 06：答案正确... 0ms

├ 测试数据 07：答案正确... 0ms

├ 测试数据 08：答案正确... 0ms

├ 测试数据 09：答案正确... 0ms

├ 测试数据 10：答案正确... 0ms

---|---|---|---|---|---|---|---|-

Unaccepted 有效得分：90 有效耗时：0ms

var

n,m,a,b,i,j,k:longint;

tiao:array[-20..21,-20..21]of int64;

begin

read(n,m,a,b);

for i:=1 to n do

tiao:=1;

for j:=1 to m do

tiao[0,j]:=1;

tiao[a,b]:=-1;

tiao[a-1,b-2]:=-1;tiao[a-2,b-1]:=-1;

tiao[a+1,b-2]:=-1;tiao[a+2,b-1]:=-1;

tiao[a-1,b+2]:=-1;tiao[a-2,b+1]:=-1;

tiao[a+1,b+2]:=-1;tiao[a+2,b+1]:=-1;

i:=1;j:=1;

while (tiao-1)and(i