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;
    i: Integer := 3;
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;