OJ Board

Anyone can help me?

Now NO TLE but WA...
[pascal]
program uva101;
{The blocks program}
var
b:packed array[0..24,0..25] of byte;
p:packed array[0..24] of byte;
stack:array[1..25] of byte;
size,i,j,k,stackp:word;
cmd,part1,part2:string;
op1,op2,tm1,tm2:word;
procedure mope(block,dest:word);
begin
dec(b[p[block],0 ...

bash or other shell?

[pascal]
program uva101;
{The blocks program}
var
b:packed array[1..25,0..25] of byte;
p:packed array[1..25] of byte;
stack:array[1..25] of byte;
size,i,j,k,stackp:word;
cmd,part1,part2:string;
op1,op2,tm1,tm2:word;
procedure mope(block,dest:word);
begin
dec(b[p[block],0]);
inc(b[dest,0 ...

Well I found my mistake:
[pascal]
for i:=b downto a
[/pascal]
just 's/downto/to/'

[pascal]
program uva100;
{3n+1 problem}
function find(num:longword):longword;
var
fd:integer;
begin
fd:=1;
while (num<>1) do begin
inc(fd);
if num mod 2=1 then
num:=num*3+1
else
num:=num div 2;
end;
find:=fd;
end;
var
a,b,i,c,mc:longword;
begin
repeat
readln(a,b);
mc:=0;
if a<=b then ...