создание программы . Ввести фамилию имя отчество как одно текстовое данное. Вывести фамилия имя отчество в отдельных строках .

Если фамилия, имя и отчество вводятся через пробел, то задачу можно решить так:var s,f,i:string;beginwriteln('Введите ФИО');readln(s);f:=copy(s,1,pos(' ',s)-1);writeln(f);delete(s,1,pos(' ',s));i:=copy(s,1,pos(' ',s)-1);writeln(i);delete(s,1,pos(' ',s));writeln(s);end.