Пример программы на Pascal:

program SameDigits;
var
num, temp, lastDigit: integer;
hasSameDigits: boolean;
begin
writeln('Введите целое число: ');
readln(num);
temp := num;
lastDigit := temp mod 10;
temp := temp div 10;
hasSameDigits := false;
while temp > 0 do
begin
if temp mod 10 = lastDigit then
begin
hasSameDigits := true;
break;
end;
lastDigit := temp mod 10;
temp := temp div 10;
end;
if hasSameDigits then
writeln('В числе есть две одинаковые цифры, стоящие рядом.')
else
writeln('В числе нет двух одинаковых цифр, стоящих рядом.');
end.

Эта программа считывает целое число, затем проверяет каждую пару последовательных цифр, чтобы определить, есть ли две одинаковые цифры, стоящие рядом.