String

program String;
uses crt;
   var
     nome        :      string[30];
     sobrenome   :      string[30];
     nomecompleto:      string[60];

begin
write('Digite o Nome :');
readln(nome);
write('Digite o Sobrenome :');
readln(sobrenome);
writeln();

                  nomecompleto := nome + ' ' + sobrenome;
             writeln (nomecompleto);
readkey;
end.