program Project10;

{$APPTYPE CONSOLE}

uses
  SysUtils;

var pal:string;
begin
  { TODO -oUser -cConsole Main : Insert code here }
writeln('ingrese su cadena');
readln(pal);
writeln('su palabra tiene ',length(pal), ' caracteres');//La funcion Length() devuelve
                                                       //la longitud o la cantidad de
                                                       //caracteres que existe en una
                                                       //palabra (los espacios son caracteres)
readln;
end.