Поделитесь своими знаниями, ответьте на вопрос:
Напишите программу в паскале напомним, что в шахматах используется клеточная доска размером 8х8, где располагаются шахматные фигуры, которые могут перемещаться по определенным правилам. в частности, король может перемещаться на соседнюю клетку по вертикали, горизонтали и диагонали. требуется определить: может ли король выполнить ход из клетки с координатами (x1, y1) в клетку с координатами (x2, y2) на стандартной шахматной доске? входные данные первая строка входного файла input.txt содержит два целых числа x1 и y1 – начальную координату короля. во второй строке записана конечная координата – целые числа x2 и y2 (1 ≤ x1, y1, x2, y2 ≤ 8 гарантируется, что начальная и конечная координаты не . выходные данные в выходной файл output.txt выведите «yes», если ход является допустимым, и «no» - в противном случае.
var a,b,c: array[1..100] of integer;
i,n: integer;
begin
n: =1;
for i: =1 to 25 do
begin
a[i]: =random(20)+100;
write(a[i],' ');
if (i > 14) and (i < 21) then n: =n*a[i];
end;
writeln;
write('произведение=',n); writeln;
end.