- Так как король ходит по вертикали, горизонтали и диагонали, примем несколько условий.program z1;const S1=\'YES\';S2=\'NO\'; infile=\'input.txt\';outfile=\'output.txt\';varx1,y1,x2,y2:longint;c:string;procedure init;beginassign(input,infile);reset(input);read(input,x1,y1,x2,y2);close(input);end;procedure out;beginassign(output,outfile);rewrite(output);write(output,c);close(output);end;begininit;if ((abs(x1-x2)=1)and(y1=y2)) or ((abs(y1-y2)=1)and(x1=x2)) or ((abs(x1-x2)=1)and(abs(y1-y2)=1)out;end.