uses crt; type Tm=array [1..26] of char; var a:Tm; i,n:integer; begin n:=65; for i:=1 to 26 do begin textcolor(red); a[i]:=(chr(n)); write(a[i],' '); n:=n+1; end; writeln; for i:=1 to 26 do begin textcolor(yellow); a[i]:=(chr(123-i)); write(a[i],' '); n:=n+1; end; end.
uses crt;
type Tm=array [1..26] of char;
var a:Tm; i,n:integer;
begin
n:=65;
for i:=1 to 26 do
begin
textcolor(red);
a[i]:=(chr(n));
write(a[i],' ');
n:=n+1;
end;
writeln;
for i:=1 to 26 do
begin
textcolor(yellow);
a[i]:=(chr(123-i));
write(a[i],' ');
n:=n+1;
end;
end.