Помогите с программой Паскаля

Дана программа:
Program Upr1;
var x, z, q, b:integer;
function Verific (q:integer):boolean;
begin
if q mod 3 <>0 then Verific:=true
else Verific:=false;
end;
procedure Numarul(a:integer;var z:integer);
begin
b:=1; z:=0;
while a>0 do begin
if Verific( a mod 10) then
begin
z:=(a mod 10)*b+z;
b:=b*10;
end;
a:=a div 10;
end;
end;
Begin
x:=13959;
Numarul ( x, z);
writeln('z=',z)
END.

1.Программа содержит рекурсивную подпрограмму?
ДА или НЕТ
2.Запишите уровни всех подпрограмм
3.Укажите объем памяти, выделяемой при выполнении программы Upr1 в сегменте данных
4.Укажите истинность следующего утверждения : « Программа Upr1 содержит побочные эффекты»
ДА или НЕТ