From mboxrd@z Thu Jan  1 00:00:00 1970
X-Spam-Checker-Version: SpamAssassin 3.4.4 (2020-01-24) on polar.synack.me
X-Spam-Level: 
X-Spam-Status: No, score=-1.6 required=5.0 tests=BAYES_00,
	FILL_THIS_FORM_FRAUD_PHISH,FREEMAIL_FROM,T_FILL_THIS_FORM_SHORT,XPRIO
	autolearn=no autolearn_force=no version=3.4.4
X-Google-Language: ENGLISH,ASCII-7-bit
X-Google-Thread: 103376,1829baf3f3969656,start
X-Google-Attributes: gid103376,public
X-Google-ArrivalTime: 2001-03-25 14:06:12 PST
From: "WM" <wwminirl@hotmail.com>
Newsgroups: comp.lang.ada
Subject: Converting Binary to Decimal
Date: Sun, 25 Mar 2001 22:37:56 +0100
Organization: University of Portsmouth
Message-ID: <99lofd$19j37@tech.port.ac.uk>
NNTP-Posting-Host: node2-42.remote.port.ac.uk
X-Priority: 3
X-MSMail-Priority: Normal
X-Newsreader: Microsoft Outlook Express 5.00.2615.200
X-MimeOLE: Produced By Microsoft MimeOLE V5.00.2615.200
Path: 
 supernews.google.com!sn-xit-03!supernews.com!logbridge.uoregon.edu!newsfeed.icl.net!colt.net!newspeer.clara.net!news.clara.net!nntp.news.xara.net!xara.net!gxn.net!server6.netnews.ja.net!server4.netnews.ja.net!server2.netnews.ja.net!news-spool.soton.ac.uk!news.ecs.soton.ac.uk!news.port.ac.uk!news
Xref: supernews.google.com comp.lang.ada:6041
Date: 2001-03-25T22:37:56+01:00
List-Id: <comp.lang.ada>

I am writing a program like this:
-----------------------------------------------------------------------
with Ada.Text_Io,Ada.Integer_Text_Io;
use Ada.Text_Io,Ada.Integer_Text_Io;

procedure Bin_2_Dec_Test is

   answer : integer;
   subtype Binary_Number is Integer range 0..1; --define data type
   type a_bin_num is array(1..8) of Binary_Number; --define array type

   bin : Binary_Number;

   function Bin_To_Dec(bin:Binary_Number) return Integer is
      Answer : Integer :=0;
   begin
      for J in reverse 1..8 loop
         Answer := Answer + a_bin_num(Bin(J))*(2**(J-1));
      end loop;
      return Answer;
   end Bin_To_Dec;

begin
   Put_Line("input binary number please: ");
   for num in 1..8 loop
      Get(a_bin_num(num));
   end loop;
   Put_Line("decimal is: ");
   Put(Answer(a_bin_num));
end Bin_2_Dec_Test;
-------------------------------------------------------------------
It gives me a lot of errors... really don't know what's wrong...
Please give some hints, thanks!