with Ada.Text_IO;

procedure Buchstabenpyramide is
   use Ada.Text_IO;
   Zielbuchstabe : Character;

   procedure Pyramide (Zeile : Integer) is
   begin
      for Zaehler in reverse
        0 .. Character'Pos (Zielbuchstabe) - Character'Pos ('A') - Zeile
      loop
         Put (" ");
      end loop;
      for Zaehler in 0 .. Zeile loop
         Put (Character'Val (Character'Pos ('A') + Zaehler));
      end loop;
      for Zaehler in reverse 0 .. Zeile - 1 loop
         Put (Character'Val (Character'Pos ('A') + Zaehler));
      end loop;
      New_Line;
   end Pyramide;

begin
   Put ("Zielbuchstabe eingeben (Grossbuchstabe): ");
   Get (Zielbuchstabe);
   for Zaehler in 0 .. Character'Pos (Zielbuchstabe) - Character'Pos ('A') loop
      Pyramide (Zaehler);
   end loop;
end Buchstabenpyramide;