Question

Помогите решить 5.1 (б)

Answer 1

// PascalABC.Net 3.0, сборка 1066
var
  Fam,Im,Ot:string;
begin
  Write('Введите фамилию: '); Readln(Fam);
  Write('Введите имя: '); Readln(Im);
  Write('Введите отчество: '); Readln(Ot);
  Writeln('Результат: ',Im[1]+'.'+Ot[1]+'.'+Fam)
end.

Тестовое решение:
Введите фамилию: Пупкин
Введите имя: Василий
Введите отчество: Иванович
Результат: В.И.Пупкин