var 
m,n,j;integer;
begin
m:=$F0;  {$F0是什么意思}
n:=$8F;  {$8F是什么意思}
writeLn(m and n);{这是什么函数,有什么用,}
j:=5;
if (j>0) and (j<10) then
j:=j-1;
end