Elaborează un program ce conține numele și prenumele a trei persoane.Va rooooggg frumos.

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.