// 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.
Тестовое решение:
Введите фамилию: Пупкин
Введите имя: Василий
Введите отчество: Иванович
Результат: В.И.Пупкин