{* Задача 92 *}

Unit ZADACH92;
Interface
Implementation
Begin
 writeln('В таблице a[1:100] записаны нули и единицы. Заменить 0 на 1, а 1 на 0.');
End.

Program zadach92;

Uses zadach92.pas; {* Эту строку можно удалить *}
Uses Crt; {* Подключение модулей *}
Var {* Объявление переменных *}
  a : Array[1..100] Of byte;
  i : byte;
Begin
  ClrScr; {* Очищаем экран *}
  Randomize;
  For i := 1 To 100 Do {* Увеличиваем i от 1 до 100 с шагом 1 *}
  Begin
    a[i] := Random(2);
    Write(a[i]);
  End;
  Writeln; {* Пропускаем одну строку *}
  For i := 1 To 100 Do {* Цикл для i => [1 .. 100] *}
  Begin
    a[i] := 1 - a[i];
    Write(a[i]);
  End;
  
End.