Ответ:

program z;

var s:string;

i:integer;

begin

read (s);

for i:=1 to length(s) do

if s[i]='1' then s[i]:='0'

else if s[i]='0' then s[i]:='1';

write(s)

end.

Объяснение:

использовано:

цикл со счётчиком (length - количество символов в строке)

и

полный условный оператор с вложеным неполным условным оператором (if условие 1 then действие 1 else if условие 2 then действие 2)