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

Question

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

Comments

типо вас зовут Алексей Борисович, вас зовут Сергей Сергеевич, вас зовут Михаил Борисович, вас зовут Константин Сергеевич

---

это вот так что ли?

---

блин

---

вот так?МВ-Михаил Викторович

---

нет, нужно составить программу

---

только эти буквы

Answer 1

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