var
i:char;
begin
for i:='a' to 'z' do
writeln(i,' ',UpCase(i));
end.
Вариант 2
var
i:char;
begin
for i:=chr(97) to chr(122) do
writeln(i,' ',UpCase(i));
end.
var
i:char;
begin
for i:='a' to 'z' do
writeln(i,' ',UpCase(i));
end.
Вариант 2
var
i:char;
begin
for i:=chr(97) to chr(122) do
writeln(i,' ',UpCase(i));
end.