写出程序实现功能.pptVIP

以下是Pascal语言程序源代码，请分别写出程序实现的功能。 程序01：Program suma(input,output); var a,b,sum:integer; begin ? write(Please input a,b:); ? read(a,b); ? writeln(a=,a); ? writeln(b=,b); ? sum:=a+b; ? write(sum) end. 程序02：Program jh (input,output); var ???? zhi:real; ???? i,n:integer; begin ? write(Input n:); ? read(n); ? zhi:=1; ? for i:=2 to n do ??? zhi:=zhi*i; ? write(zhi) end. 程序03：program? may(input,output); var? far:real; ???? n,i:integer; begin ? write(Please input n:); ? read(n); ? far:=1; ? for i:=2 to n do ??? far:=far+i; ? writeln(far) end. 程序04：Program? agr(input,output