program SuNombre;
uses crt;

var su_nombre : string;
begin
    write ('Ingresa el su nombre: ');
    readln (su_nombre);
    writeln ('Su nombre: ', su_nombre);
    writeln;
    write ('Presiona una tecla para terminar . . . ');
    readkey;
end.