pascal语言程序1．读入两个字符,若这两个字符的ASCII码之差是奇数,打印两个字符的后继字符,否则打印它们的前趋字

第一题：
var a,b,c:longint;ch1 ch2:char;
begin
readln(ch1,ch2);
a:=ord(ch1);
b:=ord(ch2);
c:=a-b;
if c mod 2=1 then writeln(succ(ch1,ch2))
else writeln(pred(ch1,ch2));
end.
第二题：
var a,b,c:longint;s,p:real;
begin
readln(a,b,c);
if (a+b>c)and(a+c>b)and(b+c>a) then begin//判断能否组成三角形；
p:=(a+b+c)/2;
s:=sqrt(p*(p-a)*(p-b)*(p-c));//如果能组成,计算三角形面积；
writeln(s);//输出面积
end
else writeln('NOSJX');//如果不是,输出“不是三角形”
end.
第三题：
var s:string;
ch:char;
begin
for i:=1 to n do
begin
ch:=upcase(s[i]);
if ch in['A'..'D'] then write(ord(ch)-64)
else write(5);
end;
end.
第四题：
var a,s:longint;
begin
s:=0;
for a:=1 to 100 do
s:=s+a;
writeln(s);
readln;
end.
var a,b,i,s:longint;
begin
a:=2;s:=0;
repeat
s:=s+a;
inc(a,10);
until a=1002;
writeln(s);
readln;
end.
var a,b,c,s:longint;
begin
s:=0;
for a:=1 to 100 do
begin
if a mod 2=0 then s:=s+a;
end;
writeln(s);
readln;
end.
var a,b,c,d,i,j,s:longint;
begin
s:=0;d:=1;
for i:=1 to 10 do
begin
for j:=1 to i do
d:=d*j;
s:=s+d;
end;
writeln(s);
readln;
end.
后面的几个很简单,我就不写解释了