TP3/shell/tests/fixtures/t30_forloop.pas

program t30;
var
  i : integer ;
  s : integer ;
begin
  s := 0 ;
  for i := 1 to 5 do
    s := s + i ;
  writeln (s)
end.