with Text_IO;
use Text_IO;
procedure batch is
        package Int_IO is new Text_IO.Integer_IO(INTEGER);
        use Int_IO;
        input_status, score : INTEGER := 0; 
        sum : INTEGER :=0;
begin
        Put_Line("Scores ");
                while input_status = score Loop
                while NOT Text_IO.End_of_File Loop
                while input_status = score Loop
                Get(score);
                Put(score);
                New_Line;
                input_status := score;        
                sum := sum + score;
                end Loop;
                end Loop;
                end Loop;
        Put("Sum of exam scores is  ");
        Put(sum);
end;