Нужно выполнить практическую работу по информатике, Она достаточно легкая, но у меня нет времени.

Ожог:
1. Убрать поражающий фактор.
2. Охладить место ожога.
3. Накрыть влажной повязкой.
4. Покой и противошоковые меры.
Обморок:
1. Если дыхательные пути свободны, пострадавший дышит и у него прощупывается пульс (слабый и редкий), его необходимо уложить на спину и приподнять ноги.
2. Расстегнуть сдавливающие части одежды.
3. Положить на лоб пострадавшего мокрое полотенце.
4. При рвоте пострадавшего необходимо перевести в безопасное положение или хотя бы повернуть голову набок, чтобы он не захлебнулся рвотными массами.
Остановка дыхания:
1. Непрямой массаж сердца.
2. Искусственная вентиляция легких.
3. Закрытие дыхательных путей инородным телом.

Function Knight(x1, y1, x2, y2: integer): Boolean;
{ Возвращает True, если возможен переход с (x1,y1) на (x2,y2) }
begin
  if abs(x2 - x1) = 2 then Knight := (abs(y2 - y1) = 1)
  else
  if abs(x2 - x1) = 1 then Knight := (abs(y2 - y1) = 2)
  else Knight := false
end;

function Queen(x1, y1, x2, y2: integer): Boolean;
{ Возвращает True, если возможен переход с (x1,y1) на (x2,y2) }
begin
  Queen := (x1 = x2) or (y1 = y2) or (abs(x2 - x1) = abs(y2 - y1))
end;

var
  xk, yk, xq, yq: integer;

begin
  Write('Укажите через пробел координаты коня  [1..8]: ');
  Readln(xk, yk);
  Write('Укажите через пробел координаты ферзя [1..8]: ');
  Readln(xq, yq);
  if Knight(xk, yk, xq, yq) then Writeln('Конь бьет ферзя')
  else
    if Queen(xq, yq, xk, yk) then Writeln('Ферзь бьет коня')
    else Writeln('Фигуры не угрожают друг другу')
end.

Примеры выполнения программы:

Укажите через пробел координаты коня  [1..8]: 3 5
Укажите через пробел координаты ферзя [1..8]: 1 7
Ферзь бьет коня

Укажите через пробел координаты коня  [1..8]: 3 5
Укажите через пробел координаты ферзя [1..8]: 7 7
Фигуры не угрожают друг другу

Укажите через пробел координаты коня  [1..8]: 4 3
Укажите через пробел координаты ферзя [1..8]: 5 5
Конь бьет ферзя