Răspuns:
program lista;
const
message = ' Lista Persoanelor este: ';
type
name = string;
var
persoana1, persoana2, persoana3: name;
begin
writeln('Nume si prenume persoana 1: ');
readln(persoana1);
writeln('Nume si prenume persoana 2: ');
readln(persoana2);
writeln('Nume si prenume persoana 3: ');
readln(persoana3);
writeln;
writeln(message, ' ', persoana1, ' , ', persoana2, ' , ', persoana3);
end.