--
-- procedure Main2 is
--
-- procedure BlaBlaBla is
-- begin
--     Put_Line("Minetka");
-- end BlaBlaBla;
--     Next : Ada.Real_Time.Time;
--     Interval : constant Ada.Real_Time.Time_Span := Ada.Real_Time.Milliseconds(500);
-- begin
--     Next := Ada.Real_Time.Clock;
--     loop
--         delay until Next;
--         BlaBlaBla;
--         Next := Next + Interval;
--     end loop;
-- end Main2;
--
--
-- procedure Main2 is
--
--     ZlaLiczba : exception;
--
--     function Silnia(N : Integer) return Integer;
--
--     function Silnia(N : Integer) return Integer is
--     begin
--         if N < 0 then
--             raise ZlaLiczba with "Zła liczba";
--         end if;
--         if N = 0 then
--             return 1;
--         else
--             return(N*Silnia(N-1));
--         end if;
--     end Silnia;
--
-- begin
-- end Main2;
--
--
-- function Dziel(Dzielona: Integer, Dzielnik: Integer) return Float is
--     ZlyDzielnik : exception
-- begin
--     if Dzielnik = 0 then
--         raise ZlyDzielnik with "Nie dziel przez zero depciu";
--     end if;
--     return  Dzielona / Dzielnik;
-- end Dziel;







procedure Main2 is

    type Zesp is
        record
            Re: Integer;
            Im: Integer;
        end record;

    function jestPierwszaCzyNieJest(A: Integer) return Boolean is
        NewNumber : Zesp;
    begin
        NewNumber.Im := A.Im + B.Im;
        NewNumber.Re := A.Re + B.Re;
        return NewNumber;
    end Sum;

    A : Zesp;
    B : Zesp;
    C : Zesp;
begin
    A.Im := 3;
    A.Re := 4;
    B.Im := 5;
    B.Re := 6;
    C := Sum(A, B);
    Put_Line(C.Im'Img & C.Re'Img);
end Main2;

procedure Main2 is

    function JestPierwszaCzyNieJest(A: Integer) return Boolean is
        -- I : Integer
    begin
        for I in 2..A/2 loop
            if (A mod I) = 0 then
                return False;
            end if;
        end loop;
        return True;
    end Sum;

    C : Integer;
    TakCzyNie : Boolean;
begin
    C := 4;
    TakCzyNie := JestPierwszaCzyNieJest(C);
    Put_Line(TakCzyNie'Img);
    C := 5;
    TakCzyNie := JestPierwszaCzyNieJest(C);
    Put_Line(TakCzyNie'Img);



end Main2;

procedure Main2 is

    Name_error : exception;

    procedure Cipeczki(Numerek: Integer) is
    begin
        if Numerek = 0 then
            raise Name_error;
        else
            Put_Line("Korona królów jest sztosem");
        end if;
    end Cipeczki;

begin
    Cipeczki(0);

    exception
        when Name_error => Put_Line("Szambo wyjebało");

end Main2;