with Ada.Text_IO;
use Ada.Text_IO;
with Ada.Command_Line;
use Ada.Command_Line;

procedure Hello is
    package IO renames Ada.Text_IO;
    package Obj is
        type A is tagged record
            p: Integer; 
        end record;

    end Obj;
    i : Integer := 1;
    ooops: Obj.A;
begin
    Put_Line("Hello, world");
    if i < 2 then
        Put_Line("Mniejsze od 2 ");
    else
        Put_Line("Większe lub równe 2");
    end if;
end Hello;