procedure PrintMainData;
begin
  WriteLn('printMainData');
end;

procedure PrintOtherData;
begin
  WriteLn('printOtherData');
end;

procedure PrintSomeData(PrintAll: Boolean);
begin
  PrintMainData;
  if not PrintAll then
    Exit;
  PrintOtherData;
end;

begin
  PrintSomeData(False);
  PrintSomeData(True);
end.