помогите составить программки для паскаля 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