用pascal计算题目

1、
var a:array[1..10] of integer;
n,m:integer;
s:=real；
begin
for n:=1 to 10 do read(a[n]);
for n:=1 to 10 do m:=m+a[n]；
s:=m /10；
writeln（s:0:0:0）；
end.
2、
var n:char
begin
for n:=‘a’ to‘z' do writeln（n);
for n:=’z' to ‘z' do writeln（n）；
end.
3、
var m,n,i：integer；
a:array[1..20] of integer；
begin
readln(i);
for i：=1 to20 do readln(a[i]);
for i：=1 to 20 do begin
ifa[i]>m then m:=a[i];
end;
write(m);
end.