program ideone;
var  c,d:integer;
 
    procedure P(x,y:integer);
    begin
        y:=x+1;
    end;
 
    procedure Q(x:integer; var y:integer);
    begin
        y:=x+1;
    end;
 
begin
c:=2; 
d:=0; 
P(sqr(c)+c,d); 
writeln(d);
end.