Big numbers

["Doker" <doker0@wp.pl>]

program like that one can count only up to 29. what can i do to deal with 
data up to 100?

with Ada.Text_Io;

use Ada.Text_Io;

procedure Silnia is

A : Long_Long_Integer;

package Lng_Int_Io is new Ada.Text_Io.Integer_Io(Long_Long_Integer);

use Lng_Int_Io;

function Silnia (

Liczba : Long_Long_Integer)

return Long_Long_Integer is

Efekt : Long_Long_Integer := 1;

begin

for I in 2..Liczba loop

Efekt := Efekt * I;

end loop;

return Efekt;

end;

begin

Put_Line("start");

loop

begin

New_Line;

Put("give a number:");

Get(A);

if A >28 then

Put_Line ("can't do with this");

raise Constraint_Error;

end if;

Put ("the result is ");

Put(Long_Long_Integer'Image(Silnia(A)));

exit;

exception

when Data_Error =>

Put("Data Error ");

Skip_Line;

when Constraint_Error =>

Put("Constraint Error ");

Skip_Line;

end;

end loop;

end Main;