Составьте программу, которая запрашивает имя (один из символов: 'а' - Алексей, 'с' - Сергей, 'м' - Михаил, 'к' - Константин) и отчество ('б' - Борисович или 'с' - Сергеевич) и выдаёт их полное название. Протокол: Введите имя и отчество: ссВас зовут Сергей Сергеевич

program name;

var s, i, o: string;

begin

writeln ('Введите инициалы (маленькие буквы, без знаков препинания.');

writeln ('Имя: а, с, м, к. Отчество: б, с) ');

readln (s);

case s[1] of

'а': i: = 'Алексей';

'с': i: = 'Сергей';

'м': i: = 'Михаил';

'к': i: = 'Константин'

end;

case s[2] of

'б': o: = 'Борисович';

'с': o: = 'Сергеевич'

end;

writeln ('Вас зовут ', i, ' ', o)

end.