with Ada.Text_IO;                 use Ada.Text_IO;
with Ada.Float_Text_IO;         use Ada.Float_Text_IO;
with Ada.Integer_Text_IO;       use Ada.Integer_Text_IO;
with Ada.Numerics.Float_Random;

procedure pyramid is

  Input : Integer;

begin

  put("Ange pyramidens storlek: ");
  get(Input);


  for I in 1..Input loop
    put(" ");
  end loop;
  Put_Line("  -_ | _-");
  if (input > 1) then
    for I in 2..Input loop
      put(" ");
    end loop;
  end if;
  Put_Line("_ _ //.\\ _ _");
  for I in 1..Input loop
    put(" ");
  end loop;
  Put_Line("  _\\”//_");
  for I in 1..Input loop
    put(" ");
  end loop;
  Put_Line("     | ");
  for I in 1..Input loop
    put(" ");
  end loop;
  Put_Line(" _________");

  for I in 1..Input  loop
    for I in 1..Input loop
      put(" ");
    end loop;
    put("/");
    put("AAAAAAAAA");
    put("\"); New_Line;
  end loop;


end pyramid;