第一题：
const n=4;
var a:array[1..n] of char;
    i,j:integer;t:char;
begin
  for i:=1 to n do read(a[i]);
  for i:=1 to n-1 do
    for j:=n downto i+1 do
    if a[j]<a[j-1] then
    begin
      t:=a[j];
      a[j]:=a[j-1];
      a[j-1]:=t;
    end;
    for i:=1 to n do write(a[i]:2);
end.
注意读入时不要输入空格。例如输入：yxca  则输出：a c x y

第二题：
var cj:integer;
begin
  read(cj);
  if cj>100 then write('Error!')
  else if cj>=90 then write('A')
  else if cj>=80 then write('B')
  else if cj>=60 then write('C')
  else if cj>=0 then write('D')
  else write('Error!');
end.

哈哈，凑个热闹

简单

既然有人卖力做了，我就偷懒不做了，哈哈！

3道题怎么2道题？

我也会