Count Coins

Sorry, but this code is in Spanish (which mixed with Ada feels like Spanglish). It was homework at some point of my life.

I'll edit to translate when I have a spare moment.

And now I give it a look I see it looks terribly like C. I should also correct it to take advantage of some Ada features.

with Ada.Text_IO;

procedure ValorMonedas is

  package Integer_IO is new Ada.Text_IO.Integer_IO(Integer);

  package T_IO renames Ada.Text_IO;
  

 Valores: array (1..6) of Integer;
 Contable: Integer ;
 Cantidad: Integer;
 Aux: Integer;

begin

 Contable:=0;
 Cantidad:=0;
 
 Valores:=(1,2,5,10,20,50);
 
 for C in Integer range 1..6 loop
   T_IO.Put("Monedas de" 
     & Integer'Image(Valores(C)) 
     & "centimos ");
   Integer_IO.Get(Cantidad);
   T_IO.New_Line(1);
   Contable:= Contable + (Cantidad * Valores(C));
  end loop;
 --Parte "a mano" del loop. Se indexa a misma altura por relación
  T_IO.Put("Monedas de 1 Euro ");
  Integer_IO.Get(Cantidad);
  T_IO.New_Line(1);
  Contable:=Contable + (Cantidad * 100);
  T_IO.Put("Monedas de 2 Euros ");
  Integer_IO.Get(Cantidad);
  T_IO.New_Line(1);
  Contable:= Contable + (Cantidad * 200);
 Aux:= Contable/100;
 Contable:= Contable - (Aux*100);
 T_IO.Put_Line("Son " & Integer'Image(Aux) & " Euros y "
    & Integer'Image(Contable) & " centimos.");
 

end ValorMonedas;