С паскалем помогите, очень прошу

Question

нужно ввести фио одной строкой а на экран вывести фио в отдельных строках с преветствием

Дима · Accepted Answer

var str:string; 
 readln(str); 
 writeln(' прЮвет'); 
//тут разбиваешь на подстроки записываешь в переменные 
writeln(str);

Павел · Answer

var s:string; i:integer; 
begin 
write('Ф И О ?' ); readln(s); 
writeln('Привет,'); 
for i:=1 to length(s) do 
if s[ i]=' ' then writeln else write(s[ i]); 
readln 
end.