{$codepage UTF8} VAR cadA,cadB,cadC:string; BEGIN Write('Ingrese su nombre : ');readln(cadB); cadA:='su nombre es : '; cadC:=cadA+cadB; Writeln(cadC) END.