Pascal/Turbo Pascal - Algoritmo en pascal que de la primera cifra de un numero introducido por el usuario

{Mira esto máximo 5 cifras  en algunas valores}

PROGRAM pruebas;

uses

   crt;

VAR

unidades,ncolega,primernumero:integer;

nu, por, primero : integer;

cade : string[5];

BEGIN

clrscr;

write('  Entre Numero : ');

readln(ncolega);

str(ncolega,cade);

nu := length(cade);

case  nu of

1 : por := 1;

2 : por := 10;

3 : por := 100;

4 : por := 1000;

5 : por := 10000;

  end;

unidades:= ncolega MOD 10;

primero := (ncolega - (ncolega mod por)) div por;

writeln('  El entrado es : ',ncolega);

writeln('  El ultimo es  : ',unidades);

writeln('  El primero es : ',primero);

readln;

END.

{Mira esto}

PROGRAM pruebas;

uses

   crt;

VAR

unidades,ncolega,primernumero:integer;

nu, por, primero : integer;

BEGIN

clrscr;

write('  Entre Numero : ');

readln(ncolega);

unidades:= ncolega MOD 10;

primero := ncolega shr 10;

writeln('  El entrado es : ',ncolega);

writeln('  El ultimo es  : ',unidades);

writeln('  El primero es : ',primero);

readln;

END.

{A ver otra forma}

PROGRAM pruebas;

uses

   crt;

VAR

unidades,ncolega,primernumero:integer;

nu, por, primero : integer;

BEGIN

clrscr;

write('  Entre Numero : ');

readln(ncolega);

unidades:= ncolega MOD 10;

  while ncolega > 0 do

  begin

    primernumero := ncolega mod 10;

    ncolega := ncolega div 10;

    primero := (primero * 10) + primernumero;

   end;

primernumero := ncolega mod 10;

writeln('  El entrado es : ',ncolega);

writeln('  El ultimo es  : ',unidades);

writeln('  El primero es : ',primero mod 10);

readln;

END.