Пожалуйста посчитайте составить программы для паскаля 12 и 11

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


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



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


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