Написать программу.
В 3 символьные переменные а , в и с , ввести свою фамилию, имя, отчество. Сформировать из этих данных строку s ,содержащую вашу фамилию и инициалы.

var  a, b, c, s: string;begin  Write('Введите фамилию: '); Readln(a);  Write('Введите имя: '); Readln(b);  Write('Введите отчество: '); Readln(c);  s := a + ' ' + b[1] + '.' + c[1] + '.';  Writeln('Фамилия, И.О.: ', s)end.Тестовое решение:Введите фамилию: ИвановВведите имя: ПетрВведите отчество: СергеевичФамилия, И.О.: Иванов П.С.