Question

Вывести 6ю букву латинского заглавного алфавита

Answer 1

Var
  c:char;
begin
    c:=chr(ord('A')+5);
    writeln(c);
end.