1.再键盘上输入六个大写字母，把它转换成对应的大写字母输出。输入：pascal输出PASCAL。

小写转大写
var
a:array[1..6] of char;
i:integer;
n:char;
begin
for i:=1 to 6 do
begin
readln(n);
a[i]:=chr(ord(n)-32);
end;
for i:=1 to 6 do write(a[i],' ');
end.

大写转小写
var
a:array[1..6] of char;
i:integer;
n:char;
begin
for i:=1 to 6 do
begin
readln(n);
a[i]:=chr(ord(n)+32);
end;
for i:=1 to 6 do write(a[i],' ');
end.

var s:string;c:integer;
begin
readln(s);
for c:=1 to length(s) do write(chr(ord(s[c])-32));
end.

用upcase（）函数

小学三年级就学FP了··汗···

要说明用怎么语言。