TP3/shell/tests/fixtures/t27_localvar.pas

program t27;
var
  g : integer ;
procedure work ;
var
  v1 : integer ;
  v2 : integer ;
  v3 : integer ;
  v4 : integer ;
  v5 : integer ;
begin
  v1 := 10 ;
  v2 := 20 ;
  v3 := 30 ;
  v4 := 40 ;
  v5 := 50 ;
  g := v1 + v2 + v3 + v4 + v5 ;
  writeln (v1, ' ', v2, ' ', v3, ' ', v4, ' ', v5, ' ', g)
end ;
begin
  work ;
  writeln (g)
end.