TP3/shell/tests/fixtures/t11_for.pas

program t11;
var
  i : integer ;
begin
  for i := 1 to 3 do
    writeln (i) ;
  writeln ('i=', i) ;
  for i := 3 downto 1 do
    writeln (i)
end.