{$codepage UTF8} VAR p:single; cad:string; error:integer; BEGIN Write('Ingrese un numero :'); readln(p); Str(p:8:3,cad); Writeln('El numero como cadena de caracteres : ',cad); Write('Ingrese otro numero :'); readln(cad); Val(cad,p,error); if (error>0) then Begin Writeln('El numero ingresado es incorrecto'); Writeln('posicion del error : ',error); Writeln('numero ingresado : ',cad) End else Begin Writeln('El numero ingresado es correcto'); Writeln('no se encontro error : ',error); Writeln('numero ingresado : ',p:10:4) End END.