фамилия паскаль

Ответ от Виталий Емельянов[гуру]
var fam,name,otch:string; begin write(\'Введите фамилию -> \'); readln(fam); write(\'Введите имя -> \'); readln(name); write(\'Введите отчество -> \'); readln(otch); writeln(\'Ваше Фамилия И. О. = \',fam,\' \',name[1],\'.\',otch[1],\'.\'); readln; end.