rekursi dalam rekursi

program rekursi_dalam_rekursi;
uses crt;

procedure rekursi_dalam(angka: integer);
begin
    if angka > 0 then
    begin
        writeln('Angka dalam: ', angka);
        rekursi_dalam(angka - 1);
    end;
end;

procedure rekursi_luar(angka: integer);
begin
    if angka > 0 then
    begin
        writeln('Angka luar: ', angka);
        rekursi_dalam(angka);
        rekursi_luar(angka - 1);
    end;
end;

begin
    clrscr;
    rekursi_luar(3);
    writeln;
end.