Проверить наличие двух одинаковых цифр в числе (Pascal)

AvariItigail

23 апреля 2016

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

Входные данные
Входная строка содержит одно натуральное число.

Выходные данные
Программа должна вывести слово «YES», если в числе есть две одинаковые цифры, и слово «NO», если такой пары цифр нет.

Исходный код на языке Pascal

var
  a, b, c, s: integer;

begin
  read(c);
  repeat 
    a := c mod 10;
    c := c div 10;
    s := c;
    while s > 0 do 
    begin
      b := s mod 10;
      s := s div 10;
      if (a = b) then begin
        writeln('yes');
        a := 77;
        break;
      end;
    end;
    if (a = 77) then break
  until (c = 0);
  if (a <> 77) then 
    writeln('no');
end.