Дано четырехзначное число. Напишите программу на языке pascal, которая определяет есть, ли среди цифр заданного числа одинаковые и является ли число палиндромом, т.е. числом, десятичная запись которого читается одинаково слева направо и справа налево.
uses School; // PascalABC.NET версия после 14.04.2020
begin
var a := Digits(ReadInteger('Введи число:'));
if a.Length = a.Distinct.Count then
Println('Нет одинаковых цифр, не палиндром')
else
begin
Println('Есть одинаковые цифры');
if (a[0] = a[3]) and (a[1] = a[2]) then
Print('Палиндром')
else
Print('Не палиндром')
end
end.