Нужно ввести с клавиатуры в одну строку фамилию, имя и отчество. вывести фамилию и инициалы. напишите, , программу! пример: напечатали "иванов петр сергеевич", компьютер выдаёт иванов п.с. без ink мы не проходили!

Если фамилия, имя и отчество разделяются одним пробелом, то программа может быть такой:
var fio,s,f,i:string; p:integer;
begin
writeln('Введите ФИО');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.
Если есть вопросы - обращайтесь