lokalANDglobal

program contoh;
uses crt;
var z: integer;

procedure nama_prosedur;
var y: integer;
begin
    y := 15;
    writeln(y);
    z := 7;
    writeln(z);
end;

var x: integer;
begin
    clrscr;
    x := 10;
    writeln(x);
    nama_prosedur;
    z := 3;
    writeln(z);
end.