Новичок, подскажите как делать задание.

[SinimaWath]

Всем известно, что многие олимпиадные задачи начинаются со слов «Всем известно». Но мало кто знает, что начинающему программисту Паше такие задачи меньше всего нравятся. Потому что обычно после слов «всем известно» описывается такой факт, о котором он даже не догадывался. После очередной подобной задачи Паша решил проверить, а действительно ли всем известно, что сумма первых N нечетных чисел равняется N2:



Для этого Паша провел опрос всех людей, попавшихся ему под руку в известной социальной сети. Результаты опроса он записал в текстовый файл. Он ставил цифру один, если человеку был действительно известен данный факт, в противном случае в файл записывался нуль. Все было хорошо, пока Паша не открыл файл и не ужаснулся, увидев длинную последовательность из единичек. Как же он теперь будет искать среди них нули?

Уже всем известно, что Паша – начинающий программист, поэтому для обработки результатов исследования он обратился к вам за помощью.

Входные данные

Входной файл INPUT.TXT содержит непустую последовательность из нулей и единиц. Длина последовательности не превышает 104.

Выходные данные

В выходной файл OUTPUT.TXT выведите слово «YES», если факт был известен всем опрошенным людям, и слово "NO" в противном случае.

Примеры

№ INPUT.TXT OUTPUT.TXT
1 11111101010011 NO
2 11 YEs

[min@y™]

Примеры

№ INPUT.TXT OUTPUT.TXT
1 11111101010011 YES
2 11 NO

А не поменять ли местами yes и no, для начала?

[SinimaWath]

Вот сам по пробывал:

program moneta;
var a,b,i,j:integer;
ch:char;

begin
 assign(input, 'input.txt'); reset(input);
  assign(output, 'output.txt'); rewrite(output);
  j:=0;
   while ( (not (eoln)) and (j<=10000 )) do begin
    readln(ch);
    i:=ord(ch);
    if (i=48) then
    b:=b+1;
    j:=j+1;
    end;
        if( b > 0) then
        write('NO')
        else
        write('YES');
end.

ответ выдает правильный но через одну строку тоесть так:
0101010110

NO.
Можно ли сделать так что бы сразу без пропуска выводило?

[min@y™]

Можно ли сделать так что бы сразу без пропуска выводило?

Да.
Нашёл первый ноль - прерви цикл, чо их считать-то?