SoloCodigo

buenas gente alguien sabe como sacar la notacion cientifica al usar numeros reales ?????
o sea que al escribir 9000 salga por pantalla 9000.0 y no 9.0 E 002 ...
se agradece la ayuda !!

BUEN DIA GNT DEL FORO NECESITO AYUDA CON ESTE PEDAZO DEL ALGORITMO AL INGRESAR EN CICLO WHILE QEDA TILDADO SUSPENDIDO EL PROGRAMA

program max_min;
 uses crt;
 const
      ini=1;
      max=100;

 type
     tnum=integer;
     trango=ini..max;
     tvector=array[trango]of tnum;

 var
     vector:tvector;
     ulpos:tnum;

procedure ingresar(var vector:tvector; var ulpos:tnum);



begin
     ulpos:=ini;
     writeln('ingrese');
     read(vector[ulpos]);
     while(ulpos <= max)and(vector[ulpos] <> 0) do;

         begin
              inc(ulpos);
              writeln('inrese');
              read(vector[ulpos])
         end;

     if vector[ulpos] = 0 then
        dec(ulpos)

end;

begin

     ingresar(vector,ulpos);
     readkey

end.
DESDE YA MUCHAS GRACIAS

hola gente del foro soi nuevo en el tema de la programacion y necesito 1 poco de su ayuda
requiero hacer un procedure recursivo para obtener el resto y la division (enteros) por restas sucesivas
yo pense en lo sgte pero me da error de segmentacion

procedure div_resto(a:tnum;b:tnum;s:tnum)


begin
                                           if a >= b
                                                                              then
                                                                                    begin
                                                                                                                      a:=a-b;
                                                                                                                      inc(s)
                                                                                     end;
                                            div_resto(a-b,b,s+1)

 end;

el tipo tnum es de tipo integer probe con cambiarlo con smallint pero sigue tirando segmentation fault
si alguien puede ayudarme lo agradeceria mucho !!!!!!
saludos
pd:el codigo de un posible programa es el que sigue[attachment=0:1zvsqi2j]divission.txt[/attachment:1zvsqi2j]