{* Задача380 *}

REM basic

' Даны координаты двух полей шахматной доски( в виде двух пар чисел от 1 до 8). Определить , может ли шахматный король одним ходом перейти с одного заданного поля на другое.


CLS
PRINT "vvedite koordinati 1 kletki"
Do
    INPUT "x-"; x1
    INPUT "y-"; y1
Loop Until x1 > 0 And x1 < 9 And y1 > 0 And y1 < 9
PRINT "vvedite koordinati 2 kletki"
Do
    INPUT "x-"; x2
    INPUT "y-"; y2
Loop Until x2 > 0 And x2 < 9 And y2 > 0 And y2 < 9
PRINT
If (x1 + 1 = x2 Or x1 - 1 = x2) And (y1 + 1 = y2 Or y1 - 1 = y2) Then PRINT "mojet pereiti!" Else PRINT "ne mojet pereiti!"
End