помогите составить программы для паскаля 12 и 11

// PascalABC.NET 3.3, сборка 1573 от 04.11.2017
// Внимание! Если программа не работает, обновите версию!

№11

begin
  var (a,b,c):=ReadInteger3('Введите три целых числа:');
  if (a=b) or (a=c) or (b=c) then Writeln('Есть одинаковые числа')
  else Writeln('Нет одинаковых чисел')
end.

Пример
Введите три целых числа: 138 -1632 138
Есть одинаковые числа

№12

begin
  var (a,b,c):=ReadInteger3('Введите три целых числа:');
  Writeln('Искомая разность: ',Max(Max(a,b),c)-Min(Min(a,b),c));
end.

Пример
Введите три целых числа: 38 -14 59
Искомая разность: 73