switch

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

procedure Program is
    i: Integer;
begin
    get(i);

    case i is
        when 1 =>
            put("Opcja 1");
        when 2 =>
            put("Opcja 2");
        when others =>
            put("Nieznana opcja");
    end case;
end Program;