Gate 1993 CS [closed]

Question

Program PARAM (input, output);

var m, n : integer;

procedure P (var, x, y : integer);

var m : integer;

begin

m : = 1; x : = y + 1

end;

procedure Q (x:integer; vary : integer);

begin x:=y+1;

end;

begin m:=0; P(m,m); write (m);

n:=0; Q(n*1,n); write (n) end

value of m,n??