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

Когда запустишь программу, не забудь переключиться на русский языкvar s:string;beginwriteln ('Введите имя и отчество: ');readln(s);write('Вас зовут ');case s[1] of  'а': write('Алексей ');  'с': write('Сергей ');  'м': write('Михаил ');  'к': write('Константин ');  end;case s[2] of  'б': write('Борисович');  'с': write('Сергеевич');  end;end.