Составить программу которая определяет наличие одинаковых цифр в произвольном 3-значном числе

PascalABC.NET 3.3.5, сборка 1662 от 29.04.2018Внимание! Если программа не работает, обновите версию!begin  var n:=Abs(ReadInteger('Введите целое трехзначное число'));  if n.Between(100,999) then    if n.ToString.Select(c->c).Distinct.Count<3 then      Writeln('Есть одинаковые цифры')    else Writeln('Нет одинаковых цифр')  else Writeln('Число должно быть трехзначным')end.

var a,a1,a2,a3:integer;beginreadln(a);a1:=a div 100;a2:=a div 10 mod 10;a3:=a mod 10;if (a1=a2)or(a1=a3)or(a2=a3)then writeln('Одинаковые цифры есть')else writeln('Одинаковых цифр нет');end.Пример:121Одинаковые цифры есть