Нужно ввести с клавиатуры в одну строку фамилию, имя и отчество. Вывести фамилию и инициалы. Напишите, пожалуйста, программу!
Пример:
Напечатали "Иванов Петр Сергеевич", компьютер выдаёт Иванов П.С. без INK МЫ НЕ ПРОХОДИЛИ!

Если фамилия, имя и отчество разделяются одним пробелом, то программа может быть такой:var fio,s,f,i:string; p:integer;beginwriteln('Введите ФИО');readln(fio);p:=pos(' ',fio);s:=copy(fio,1,p-1)+' '+fio[p+1]+'.'; delete(fio,1,p);p:=pos(' ',fio);s:=s+fio[p+1]+'.';writeln(s);end.Если есть вопросы - обращайтесь