program fortesttransferOut (input, output);

label 15;

var i, j : integer;

begin

j := 16;

for i := 1 to j do

begin

write (' i is ', i);

writeln (' j is ', j);

goto 15;

end;

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

end.