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??