program fortesttransferIn (input, output);

label 15;

var i, j : integer;

dummy : char;

begin

j := 16;

goto 15;

for i := 1 to j do

begin

15: write (' i is ', i);

writeln (' j is ', j);

readln (dummy);

i := i + 1;

end;

writeln (' AFTER LOOP I HAS VALUE ', I);

end.