with Ada.Text_IO;
use Ada.Text_IO;
with Ada.Integer_Text_IO; use Ada.Integer_Text_IO;

  procedure lab06 is

   package Flt_IO is new Ada.Text_IO.Float_IO(FLOAT);
   use Flt_IO;

  MAX_ROW1 : constant := 3;
  MAX_COL1 : constant := 5;
  MAX_ROW2 : constant := 3;
  MAX_COL2 : constant := 5;
  n: NATURAL := 0;
  I: INTEGER := 0;
  type MATRIX_1 is array(INTEGER range 1..MAX_ROW1, INTEGER range 1..MAX_COL1)
          of INTEGER;
  type MATRIX_2 is array(INTEGER range 1..MAX_ROW2, INTEGER range 1..MAX_COL2)
          of INTEGER;
  First  : MATRIX_1;
  inf : FILE_TYPE;
  begin
      Open(inf, In_File, "lab06.in");
      loop
          exit when End_Of_File(inf);
          Get(inf,n);
          First(I) := n;
          I := I + 1;
      end loop;
  Put(n);
      Close(inf);
  end Lab06;