Знайдіть всі такі нерівносильні між собою формули, щоб виконувалося логічне слідування

ПРОЦ буква_М ПРОЦ буква_И ПРОЦ буква_Р
Начало
сдвинь на вектор (1:1) Начало Начало
опусти перо сдвинь на вектор (0:4). опусти перо
сдвинь на вектор (0;4) опусти перо сдвинь на вектор (0:4)
сдвинь на вектор (1;-2) сдвинь на вектор (0;-4) сдвинь на вектор (2;0)
сдвинь на вектор (1;2) сдвинь на вектор (2;4) сдвинь на вектор (0;-2)
сдвинь на вектор (0;-4) сдвинь на вектор (0;-4) сдвинь на вектор (-2;0)
подними перо подними перо подними перо
сдвинь на вектор (1;0) сдвинь на вектор (1:0) сдвинь на векторТ5Р2)
КОНЕЦ КОНЕЦ КОНЕЦ

1. Современное решение

PascalABC.NET 3.2, сборка 1417 от 28.03.2017
Внимание! Если программа не работает, обновите версию!

begin
  var n:=ReadInteger('Введите двухзначное число:');
  Writeln('Максимальная цифра ',max(n div 10, n mod 10))
end.

2. Школьное решения уровня ТурбоПаскаль 1983г.

var
  n,d,e,max:integer;
begin
  Write('Введите двухзначное число: ');
  Read(n);
  d:=n div 10;
  e:=n mod 10;
  if d>e then max:=d
  else max:=e;
  Writeln('Максимальная цифра ',max)
end.

3. Пример работы обоих программ (одинаковый)

Введите двухзначное число: 37
Максимальная цифра 7