program If_Statements; var a: Integer; b: Integer; c: Integer; begin a := 101; b := 100; c := 1; if a = (b + c) then WriteLn('got it...') else if a <> (a + b) then WriteLn('something else...') else WriteLn('something else...'); if a <> (b + c) then WriteLn('something else...') else if a = (b + c) then WriteLn('got it...') else WriteLn('something else...'); if a <> (b + c) then WriteLn('something else...') else if a <> (b + c) then WriteLn('something else...') else WriteLn('got it...'); end.