[PASCAL] Come fare questo ciclo?

[keratox]

Solo che ho un dubbio... la procedura modifica le variabili ???

es:

procedure nome;
begin
VAR:=0;
end;

begin
VAR:=1;
nome;
write(VAR);
end.

qua scrive 0 o 1 ???