Program P116;
var x : real;
function F(x : real) : real;
 forward;
procedure P(var x : real);
 forward;
procedure Q(var x : real);
 forward;

function F;
begin
 F:=2*x
end;

procedure P;
begin
 x:=x+1
end;

procedure Q;
begin
 x:=x+2
end;

begin
 x:=1;
 P(x);
 Q(x);
 writeln(F(x));
 readln;
end.