大家帮个忙,delphi几个问题,希望大家能解决。谢谢了!!!!!!!急需啊

1.var i:shortint Begin i:=high(shortint);write(‘I=’,I);End;结果输出：（ ）2.function check(n.k:Integer)Integer Var m:integerBeginRepeatm:=n.mod 10;n:=n.div 10;k=k-1；until k=0；check:=m；End 若调用语句y=check(3725.3),最后运行y值为：（ ）3.TypeMycolor=(red=1,white=15,black=20)Var I.=mycolor Begin L:=blackwriteln(‘black is’,ord(L));end.最后输出结果：black is______4.Var a:array[1.10]of integer;K,I: integer;程序段 K=1;For.1:=1to10do.If a[i]<a[k] thenK=1;Writen(a[k])执行后输出的是数组中的_____5.已知函数如下function f(n:integer)integer. begin if n=0 then f：=0.Else if n>0. then f:=f(n-2). Else f:=f(n+3)End;则调用f(5)的值是______ 收起