--Autore:Treppiedi Luigi
--Esercizio 3.2
--Il programma conta le lettere minuscole in una stringa di 100 caratteri

With Ada.Text_Io, Ada.Integer_Text_IO;

use Ada.Text_Io, Ada.Integer_Text_IO;

procedure conta_lettere is

Type conta is array (97..122) of Integer;

contal :conta;
frase :string (1..100);
lung :natural;
pos :natural;

begin
	
	contal:=(97..122 => 0);
	Put("immetti una frase di al massimo 100 caratteri: ");
	Get_line(item=>frase,last=>lung);
	
	for i in 1..lung loop
	
	pos:=character'pos(frase(i));
	
	If pos>96 and pos<123 then
	
		contal(pos):= contal(pos)+1;
		end if;
	
	End loop;
	
	for i in 97..122 loop
	
	Put(Character'val(i));
	Put(contal(i),4);
	Put("; ");
	if (i-96) mod 7 = 0 then
	   New_line(2);
	end if;
 	
	end loop;
	
End conta_lettere;