varscope1

program varscope1;
uses crt;
var a, b, c: integer; // global

procedure proc1;
var a, b: integer;
begin
    writeln(a, b, c);
end;

begin
    clrscr;
    a:=2; b:=9; c:=6;
    proc1;
    readkey;
end.