with Ada.Text_IO, Ada.Integer_Text_IO, Ada.Float_Text_IO;
 use Ada.Text_IO, Ada.Integer_Text_IO, Ada.Float_Text_IO;

procedure main is
   type Arr is array(1..26) of Character;
   A: Arr;
   C: Character;
begin
   A(1) := 'a';
   A(2) := 'b';
   A(3) := 'c';
   A(4) := 'd';
   A(5) := 'e';
   A(6) := 'f';
   A(7) := 'g';
   A(8) := 'h';
   A(9) := 'i';
   A(10) := 'j';
   A(11) := 'k';
   A(12) := 'l';
   A(13) := 'm';
   A(14) := 'n';
   A(15) := 'o';
   A(16) := 'p';
   A(17) := 'q';
   A(18) := 'r';
   A(19) := 's';
   A(20) := 't';
   A(21) := 'u';
   A(22) := 'v';
   A(23) := 'w';
   A(24) := 'x';
   A(25) := 'y';
   A(26) := 'z';
   get(C);
   for i in 1..25 loop
     if (A(i) = C) then put(A(i + 1));
     end if;
   end loop;
end main;