Pascal samples. Nested routines.


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.


Copyright © 2006-2017 Alexander Baranovsky. All rights reserved.