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;
 
//    procedure R(var x,y:integer);
 //   begin
  //      y:=x+1;
   // end;
 
begin
c:=2; d:=0; P(sqr(c)+c,d); writeln(d); 
end.