Program Przyklad;

Uses

  Crt;

Var

  a:Integer;

Procedure Inkrementacja(b:Integer);

  Begin

    b:=b+1;

    If b<3 Then

      Inkrementacja(b);

    Else

      

Writeln(‘Koniec wywoływania rekure

ncyjnego

               dla b= ‘,b);

       Writeln;

    Writeln(‘Jestem ostatnim poleceniem na

             poziomie ‘,b);

  End;

Begin

  ClrScr;

  a:=0;

  Inkrementacja(a);

  ReadLn

End.