Program CPascal;

var ch:char;

Begin
Write('Введите букву: '); Readln(Ch);

Case Ch of
     'а','А': Writeln('...список городов на букву А...');
     'б','Б': Writeln('...список городов на букву Б...');
     'в','В': Writeln('...список городов на букву В...');
     'г','Г': Writeln('...список городов на букву Г...');
     'д','Д': Writeln('...список городов на букву Д...');
     else Writeln('Города на эту букву не существует!');
     end;
end.