PROGRAM EJER65;
USES CRT;
VAR cad1, cad2, cad3, cad4, esp : STRING;
BEGIN
cad1 := 'el';
cad2 := 'hombre';
cad3 := 'invisible';
esp := ' ';
cad4 := CONCAT (cad1, esp, cad2, esp, cad3);
CLRSCR;
WRITELN (cad1);
WRITELN (cad2);
WRITELN (cad3);
WRITELN (cad4);
END.