TP3/shell/tests/fixtures/t32_forexit.pas

program t32;
var
  i : integer ;
  s : integer ;
begin
  s := 0 ;
  for i := 1 to 10 do
  begin
    s := s + i ;
    if s > 20 then
      exit
  end ;
  writeln (s) ;
  writeln (i)
end.