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.