请大家帮帮忙，帮我解释下PASCAL程序

program t1;
var n:integer;
function count(n:integer):integer;
begin
if n=1 then count:=0 else
if n mod 2=0 then count:=count(n div 2)+1 else
count:=count(n*3+1)+1
end;
begin
readln(n)
writeln(count(n))
end.
输入：99 求输出？

program t2
var hi .lo:integer;
procedure pl(m,n:integer;var hi,lo:integer);
var I:integer;
begin
I:=n;hi:=0;lo:=0;
Repeat
I:=I-1;lo:=lo+m;
if lo>=10000then
begin
Lo:=lo-10000;
Hi:=hi+1;
End;
Until I=0;
Write(hi:4,',',lo:4);
End;
Begin
P1(200,343,hi,lo);
End.

请帮我解释下VB程序 帮我解释一个PASCAL程序 我初级 请大家帮我解释下 大家过年好，简单的C程序，请帮我解释下，谢谢了。 请强人帮我解释下这个程序 请详细的帮我解释下这个java程序！ 请哪位高手帮我解释下这个java程序 请帮我解释下这个程序(菜鸟) 请大家帮我解释个Java简单程序 大家帮我设计一个pascal程序好不？