program fortesttransferOut2 (input, output);

var i, j : integer;

begin

j := 16;

for i := 1 to j do

begin

write (' i is ', i);

writeln (' j is ', j);

break ;

end;

writeln (' was able to jump out of loop and I HAS VALUE ', I);

end.