pascal ABC (оператор case)

Question

Ввести первую букву названия любой марки телефона, чтобы вывелось его полное название (тип данных CHAR вроде)

напечаталось его полное название

Джалол Умаров · Accepted Answer

Так что ли? 
 
var 
 c: char; 
begin 
 write('? '); readln(c); 
 case c of 
 'a', 'A': writeln('Alcatel'); 
 'n', 'N': writeln('Nokia'); 
 's', 'S': writeln('Samsung или SonyEricsson'); 
 else writeln('Не знаю бренда, имя которого начинается с этой буквы'); 
 end; 
end. 
 
Так ты сам можешь видеть, что в случае буквы S, первой буквы для идентификации недостаточно.