varscope2

program varscope2;
uses crt;

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

var a, b, c: integer;
begin
    clrscr;
    a:=2; b:=9; c:=6; d:=10;
    proc2;
    readkey;
end.