loadingbegin
call q
end
begin call p end. test3.pl0: const a=10; var e[10]; procedure p; var d; procedure q; var x,i;
begin i:=0; repeat begin read(x); if odd x then
e[i]:=2*x else e[i]:=x; write(e[i]); i:=i+1
end
until i=10 end
begin
call q
end
begin call p end.
13