program TestWhile; begin i := 1; while i <= 5 do begin write('i = '); writeln(i:1:0); i := i + 1 end; writeln; i := 1; while i <= 5 do begin j := 10; while j <= 30 do begin write('i = '); write(i:1:0); write(', j = '); writeln(j:1:0); j := j + 10 end; i := i + 1 end end.