-18 - 1 элемент в массиве с индексом 0 (потому что это первый элемент в массиве). 36 - 2 элемент в массиве с индексом 1 (потому что это второй элемент в массиве). 0 - 3 элемент в массиве с индексом 2 (потому что это третий элемент в массиве). -3 - 4 элемент в массиве с индексом 3 (потому что это четвертый элемент в массиве). 4 - 5 элемент в массиве с индексом 4 (потому что это пятый элемент в массиве). 15 - 6 элемент в массиве с индексом 5 (потому что это шестой элемент в массиве).
begin
var n := Abs(ReadInteger('Введите целое число:'));
var yes := False;
var n1 := n mod 10;
n := n div 10;
while n > 0 do
begin
var n2 := n mod 10;
if n1 = n2 then
begin
yes := True;
break
end;
n := n div 10;
n1 := n2
end;
if yes then Print('Верно')
else Print('Неверно')
end.
А еще это можно решить, к примеру, так:
begin
var s := Abs(ReadInteger('Введите целое число:')).ToString;
if s.Pairwise.Any(t->t[0]=t[1]) then Print('Верно')
else Print('Неверно')
end.