Turbo Pascal - problem

Mam problem z tym programikiem nauczyciel kazał na napisac ten program aby liczył binarnie dodajac dwie tablice tylko ze jeżeli wyskakuje 1+1=2 to tego nie moze być powinno być 1+1=1 .Podpowiedział nam tylke że mamy wstawić gdzieś warunek if then tylko gdzie i jaki warunek …

1ac8.png

Najprościej, choć mało wydajnie zamiast

BEGIN

a3_:=a1 +a2 ;_

END;

będzie

BEGIN

IF (a1_=1)AND(a2__=1) THEN_

a3_:=1_

ELSE

a3 :=a1 +a2_;_

END;