Решить в паскаль! дана шахматная доска(8 на8 клеток король стоит на клетке с координатой (x, y). определить, может ли король за один ход перейти на клетку с координатой ( x1, y1) координаты (x, y) (x1, y1) с клавиатуры

Координаты клеток - целые числа из диапазона от 1 до 8
var x,y,x1,y1:byte; b:boolean;
beginwriteln('x, y:');readln(x,y);
writeln('x1, y1:');readln(x1,y1);
b:=(abs(x1-x)=1)and(y1=y); //на 1 вертикали
b:=b or (abs(y1-y)=1)and(x1=x); //на 1 горизонтали
b:=b or (abs(x1-x)=1)and(abs(y1-y)=1);//рядом по диагонали
if b then writeln('Может') else writeln('Не может');
end.

Итак, историю Интернета можно разделить на несколько этапов.

1961 – 1970 гᴦ. Разработаны технические принципы компьютерной сети, введен в действие Arpanet.

1971 – 1980 гᴦ. Придуман знак @. Написана первая программа для элек­тронной почты. Осуществлена первая международная связь по электронной почте между Англией и Норвегией. Число узлов Arpanet возросло до не­скольких десятков, проложены специальные кабельные линии, соединяющие некоторые узлы, начинает функционировать электронная почта͵ о результа­тах работ ученые докладывают на международных научных конференциях.

1981 – 1990 гᴦ. Принят протокол TCP/ IP, введена система доменных имен Domain Name System (DNS).

Сформирована сеть Интернет.

1991–2000 гᴦ. Ethernet стал самой распространенной технологией ло­кальной компьютерной сети. Интернет объединил локальные сети и стал сред­ством массовой коммуникации. Прои­зошло сращивание сотовой связи и Интернета. Телетехнологии встроены в глобальную сеть – телемосты, ви­деоконференции. Услуга Интернет и электронной почты встроена в мо­бильные телефоны.

var j, a, b, n: integer;

label 1;

begin

1: randomize;

  a: = random (9);

  b: = random (9);

  write (a, '*', b, '=');

  read (n);

  if n = (a * b) then writeln ('відповідь вірний! ')

            else writeln ('відповідь неправильний! ');

  writeln ('продовжуватимеш? ');

  writeln ('якщо так то натисни 1');

  writeln ('якщо немає то натисни 2');

  read (j);

  if j = 1 then goto 1;

  if j = 2 then writeln ('до побачення! ');

end.

начебто так, точно не пам'ятаю.