Pascal ABC
Ввести с клавиатуры в одну строку фамилию и имя, разделив их пробелом. Вывести первую букву имени с точкой и потом фамилию
Пример:
"Введите фамилию и имя:
Иванов Петр
П. Иванов"

var s1,s2: string; p:integer;

begin

writeln('Введите фамилию и имя:');

readln(s1);

p:=pos(' ',s1);

s2:=copy(s1,p+1,1)+'. '+copy(s1,1,p-1);

writeln(s2);

end.

Пример:

Введите фамилию и имя:

Иванов Петр

П. Иванов