ПАСКАЛЬ
Ввести имя, отчество и фамилию. Преобразовать их к формату "фамилия и инициалы"
Ни типо пишешь в графу: юрий сергеевич кобылкин, а оно исправляет на кобылкин ю.с

Var   S,C:string;   i:integer;BeginWrite('Введите фамилию, имя и отчество, разделяя их одним пробелом: ');ReadLn(S);S:=S+' ';i:=1;While S[i] <> ' ' do   Begin   C:=C+S[i];   i:=i+1   End;C:=C+' '+S[i+1]+'.';i:=i+1;While S[i] <> ' ' do   i:=i+1;While S[i] <> ' ' do   Begin   C:=C+S[i];   i:=i+1   End;C:=C+S[i+1]+'.';WriteLn(C)End.Пример работы программы:Введите фамилию, имя и отчество, разделяя их одним пробелом: Толстой Лев НиколаевичТолстой Л.Н.