{* Задача 492 *}

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

Program zadach492;

Uses zadach492.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 с шагом 1 *}
  Begin
    a[i] := 1 - a[i];
    Write(a[i]);
  End;
  
End.