Question

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

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.