program Demo; procedure Outer(X: Integer); procedure Inner(P, Q: Double); begin X := X + 10; writeln(X, ' ', P, ' ', Q); end; begin Inner(3, 5.7); end; begin Outer(10); end.