Переводим американские единицы измерения в метрические . Module Math

Одна миля (mile) равна значению в 1,609 км.
• Напишем программу, которая бы выполняла преобразование расстояния из миль (спросить пользователя) в километры

Какая разница, как кодируется клетка поля? Для обозначения её координаты достаточно 6 битов, но сама доска кодируется простой последовательностью 64 значений [тип фигуры и цвет либо пустая]. Но у короля в общем случае 8 ходов. Я понимаю, рассматриваются не все возможные ходы короля в процессе игры, их, грубо говоря, бесконечно, а только варианты одного хода. На него нужно, понятное дело, три бита, но в шахматах записывается иначе: тип фигуры, позиция, цель; например: Фh5:f7 (ферзь с h5 на f7). Т. е. 3 бита на фигуру (6 вариантов фигур), 6 битов на начало хода и столько же на конец, независимо, король это или другая фигура. Задание не совсем понятно написано.

1. Современный эффективный код

PascalABC.NET 3.3.5, сборка 1659 от 09.04.2018
Внимание! Если программа не работает, обновите версию!

begin
  var (x,y):=ReadInteger2('Введите через пробел два числа:');
  if (x<0) or (y<0) then Writeln('Ввод отрицательных чисел недопустим')
  else begin
    while y>0 do (x,y):=(y,x mod y);
    Writeln('НОД=',x)
    end
end.

Примеры
Введите через пробел два числа: 14 -2
Ввод отрицательных чисел недопустим

Введите через пробел два числа: 32 76
НОД=4

2. Традиционный "школьный" код

var
  x,y,t:integer;

begin
  Write('Введите через пробел два числа: ');
  Read(x,y);
  if (x<0) or (y<0) then Writeln('Ввод отрицательных чисел недопустим')
  else begin
    while y>0 do begin
      x:=x mod y;
      t:=x; x:=y; y:=t
      end;
    Writeln('НОД=',x)
    end
end.