Question

Напишите программу, которая выводит на экран N (задается константой) случайных букв латинского алфавита в виде пары: заглавная буква, строчная буква. Например, при N = 6 могут быть выведены пары:
Kk
Dd
Qq
Nn
Bb
Rr

Мой набросок:
Program charrr;
Const n=6;
Var ch:char;
i:integer;
Begin
Randomize;
For i:=1 to n do
Begin
ch:=chr(random(26)+97);
writeln(UpCase(ch),ch);
End;
readln;
End.

Нужно сделать без UpCase (обязательно!)

Answer 1

program charrr;

const
  n = 6;

var
  i,k: integer;

begin
  Randomize;
  for i := 1 to n do
  begin
    k:=random(26) + $41;
    writeln(chr(k),chr(k+32))
  end
end.