program fortest (output);

var i, j : integer;

begin

j := 16;

for i := 1 to j

do

begin

write (' i is ', i);

writeln (' j is ', j);

i := i + 1;

end;

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

end.