1)Ввести естественное число и определить, правильно ли, что в его записи

1) Просим пользователя программы ввести число
writeln(Введите естественное число);
readln(a);
Запускаем цикл. Главно уточнить, что он продолжается до длины числа, наименьшей на единицу, поэтому что будет ошибка, если этого не сделать.
Тогда цикл выйдет за возможные границы.
for i:integer := 1 to (length(a) 1) do
if a[i] = a[I +1] then
begin
writeln(Верно);
break;
end;
else
writeln(Не правильно);
2) Здесь будем использовать такой же цикл, но он будет сопоставлять каждую цифру с каждой другой цифрой. И как только найдутся одинаковые значения, программка покинет цикл с подмогою оператора break:
for i:integer := 1 to (length(a) 1) do
for j:integer := 1 to length(a) do
if a[i] = a[j] then
begin
writeln(Правильно);
break; - этот оператор поможет не выполнять излишнюю работу.
end;
else
writeln(Не правильно);