#pas
program test;

procedure prog1;
begin
...
end;

procedure prog3;
begin
while TRUE do
begin
  if a = 10 then prog1;
end;
end;

procedure prog2;
begin
...
end;



end.