Elena_chess

program shahmaty;
var a,b,c,d,e,f:integer;
    z:boolean;{z - логическая переменная, если true, то по условию if определено, что фигуры не попадут друг на друга}
begin
repeat
    write('raspolojenie beloy figury (ne bolee 8 kletok): ');
    readln(a,b);
    write('raspolojenie chernoy figury (ne bolee 8 kletok): ');
    readln(c,d);
    write('pole, na kotoroe prihodit belaya figura (ne bolee 8 kletok): ');
    readln(e,f);
    if(a>8)or(a<1)or(b>8)or(b<1)or(c>8)or(c<1)or(d>8)or(d<1)or(e>8)or(e<1)or(f>8)or(f<1) then
        writeln('Ne korrektnye chisla: vvedite koordinaty [1;8]');
until((a<8)or(a>1)or(b<8)or(b>1)or(c<8)or(c>1)or(d<8)or(d>1)or(e<8)or(e>1)or(f<8)or(f>1));
if (((a=e)or(b=f)) {по горизонтали или по вертикали} or (abs(a-e)=abs(b-f))) then
    z:=true;{или по диагонали, в приципе пойти может}
{если поле бьётся конем, не может}
if ((abs(c-e)=1)and(abs(d-f)=2))or((abs(c-e)=2)and(abs(d-f)=1)) then
    z:=false;
{если в ходе работы проги z поменяло значение только на 1, то фигуры не попали в одну конечную точку}
if z then
    write('Proshel,ne popav na chernyu')
else
    write('Ne proshel');
readln
End.