1 2 3 4 5 6 7 8 9 10 11 12 13 14
{ %fail } { %OPT=-Sew -vw} program tw4781b; var U : integer; procedure B; begin if U = 0 then; if U = 0 then; end; begin end.