with Ada.Text_IO; use Ada.Text_IO;
with Ada.Integer_Text_IO; use Ada.Integer_Text_IO;
with Ada.Float_Text_Io; use Ada.Float_Text_IO;

  procedure Lab0 is

     I: integer;
     F: float;

  begin

--Exempel 1:
  Put("Skriv in ett heltal: ");
   Get(I);
   New_Line;
   Put("Du skrev in talet: ");
   Put(I);
  New_Line;
  Skip_Line;

  Put("Skriv in fem heltal: ");
   for M in 1..5 loop
   Get (I);
   Put (I);
   end loop;
  New_Line;
  Skip_Line;

  Put("Skriv in ett flyttal: ");
   Get(F);
   Put(F, Fore=> 2, Aft=> 3, Exp=>0);
  New_Line;
  Skip_Line;




  end Lab0;