Tenta Uppgift 1: Tydlig

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

procedure Tydlig is

   type Samling_Tecken is array (1..7) of Character;
   type Samling_Siffror is array (1..7) of Integer;
   Ord: Samling_Tecken;
   Heltal: Samling_Siffror;
begin
   Ord(7):='!';
   Put("Mata in ett ord (6 tecken): ");
   for I in 1..6 loop
      Get(Ord(I));
   end loop;
   Put("Mata in heltal (7 stycken): ");
   for I in 1..7 loop
      Get(Heltal(I));
   end loop;
   New_Line;

   for I in 1..7 loop
      for J in 1..Heltal(I) loop
         Put(Ord(I));
      end loop;
   end loop;


end Tydlig;