var i : char;
   j : integer;
begin
 for i:='A' to 'Z' do
     for j:=1 to byte(i) - byte('A') + 1 do {Вместо byte(x) можно ord(x)}
       write(i)
end.