Напишите программу, которая определяет, верно ли, что введённое число содержит две одинаковых цифры, стоящие рядом ( как, например 221 )

ЭТО ПАСКАЛЬ

Нужно составить программу с помощью цикла WHILE

Заранее СПАСИБО