with Ada.Text_IO; use Ada.Text_IO;

procedure World is

    protected type Naprawa is
        entry FixWorld;
    end Naprawa;

    protected body Naprawa is
        entry FixWorld when true is
        begin
            Put_Line("Swiat jest znow pieknym miejscem");
        end FixWorld;
    end Naprawa;

N: Naprawa;
begin

    select
        N.FixWorld;
    or
        delay 5.0;
        Put_Line("Nie da sie naprawic swiata");
    end select;

end World;