ADA - ejercicio sencillo, ayuda

alguien e puede ayudar? es un subprograma mu sencillo pero me toy volviendo loka, soy nueva en esto.....
el ejercicio es: implementa un subprograma que calcule cuantos numeros aparecen en una secuencia de enteros dada por teclado,.
el caso es que nose komo poner que cuente mientras se introduzcan numeros.
y el programa es algo asi, pero klaro le faltan kosas

with ada.integer_text_io; use ada.integer_text_io;
with cuantos_numeros;

procedure prueba_cuantos_numeros is
n:natural;
begin

######--llamada al subprograma cuantos_numeros ######
put(n);
end;

el subprograma seria algo asi,no seria conveniente mandarle la secuencia al subprograma,lo k aremos es mandarle el numero,no tiene muxo sentido acer el subprograma,pero supongo k la finalidad es la llamada del subprograma no el ejercicio propuesto.

procedure prueba_cuantos_numeros is
n:natural; cont:integer:=0;
begin

while not end_of_file loop
get(n);
cont:=cont + cuantos_numeros(num);

put(cont);
end;

function cuantos_numeros(num:integer) return integer is

cont:=1:
begin

return (cont);