2022年4月全国高等教育自学考试高级语言程序设计21.program er1（input，output）；var x：real；begin read（x）；if odd（x）then writeln（x is odd.）else if x mod 3=0then writeln（There is a factor of 3 in x）else writeln（x：4）end.（1）_（2）_2.program er2（input，output）；var i，s：integer；begin s：=0；for i：=a to ord（z）dobegin s：=s+i；i：=i+1 end；writeln（s：4）end.（1）_（2）_3.program er3（input，output）；var a，b：integer；function f（a，b：integer）：char；begin f：=ord（A）+（a-b）mod26 end；begin read（a，b）；if f（a-b）=cthen writeln（O.K.）elsewriteln（NOT）end.（1）_（2）_4.program er4（input，output）；type e=（a，b，c）；ta1=arraye，A.C，0.0.9of integer；var i：e；j：char；k：real；m：tal；beginfor i：=a to c dofor j：=A to C doread（mi，j）；（*下略*）end.（1）_（2）_四、阅读程序题：阅读以下程序，说明其功能（7分）（不需给出运行结果）program calpro（output）；var i，m，s，k：integer；begin