Составьте программу, которая запрашивает имя (один из символов: 'а' — Алексей, 'с' — Сергей, 'м' — Михаил, 'к' — Константин)

program name;var s,i,o: string;beginwriteln(\'Введите инициалы (маленькие буквы,без знаков препинания.\');writeln(\'Имя: а, с, м, к. Отчество: б, с)\');readln(s);case s[1] of\'а\': i:= \'Алексей\';\'с\': i:= \'Сергей\';\'м\': i:= \'Михаил\';\'к\': i:= \'Константин\'end;case s[2] of\'б\': o:= \'Борисович\';\'с\': o:= \'Сергеевич\'end;writeln(\'Вас зовут \', i, \' \', o)end.