Написать программу, которая проверяет…

VAR c: Char; BEGIN Assign (input, 'input.txt'); ReSet (input); Read (c); If (c <> '1') then begin Write ('NO'); Exit; End; While (not eoln (input) do begin Read (c); If (c <> '0') and (c <> '1') then begin Write ('NO'); Exit; End; END.