with Ada.Text_IO;         use Ada.Text_IO;
with Ada.Integer_Text_IO; use Ada.Integer_Text_IO;
 
procedure Main is
    My_Age   : constant Integer := 666;
    Your_Age : Integer;
begin
    -- En kommentar
    Put ("Hej, mitt namn är Satan, jag är ");
 
    -- Width anger hur stort fältet där siffran skall
    -- skrivas ut är. Noll innebär "använd hela talet"
    Put (Age, Width => 0);
    Put_Line (" år gammal.");
 
    Put ("Hur gammal är du: ");
    Get (Your_Age);
 
    if Your_Age < My_Age then
        Put_Line ("Hin håle är äldre än dig!");
    elsif Your_Age > My_Age then
        Put_Line ("Hin håle är yngre än dig!");
    else
        Put_Line ("Vi är lite gamla, du och jag.");
    end if;
end Main;