with Ada.Text_IO;
use Ada.Text_IO;

procedure pralnia is

-------------------------------------------------TYPY
TYPE Godzina_typ IS RANGE 0..24;
TYPE Minuta_typ IS RANGE 0..60;
-------------------------------------------------ZMIENNE
C: Character;

Szybkosc: Duration := 0.25;
Minuta: Minuta_typ := 59;
Godzina: Godzina_Typ := 6;

Klienci: array (1..100) of Integer := (others => 0);
--0 nie ma klienta, 1 klient jest w kolejce, 2 klient ma duze pranie, 3 klient obsluzony, 4 klient odebral pranie
Wskaznik_kolejki: Integer := 1;
Wskaznik_pralek: Integer := 1;
Pralka_1: Integer := 0;
Pralka_2: Integer := 0;
Pralka_3: Integer := 0;
Pralka_4: Integer := 0;
Pralka_5: Integer := 0;

-------------------------------------------------FUNKCJA SPRAWDZAJACA CZY PRALNIA JEST OTWARTA
 FUNCTION Otwarta RETURN Boolean IS BEGIN
      IF (Godzina >= 6 AND Godzina < 22 ) THEN
         Return True;
      ELSE
         Return False;
      END IF;
   END Otwarta;
-------------------------------------------------PROCEDURE
   Procedure dodajKlienta is
   begin
      if(Otwarta) then
      Klienci(Wskaznik_kolejki):=1;
         Wskaznik_kolejki:=Wskaznik_kolejki+1;
      else PUT("Pralnai zamknieta");
         end if;
   end dodajKlienta;

   Procedure duzePranie is
      begin
               if(Otwarta) then
      Klienci(Wskaznik_kolejki):=2;
         Wskaznik_kolejki:=Wskaznik_kolejki+1;
         else PUT("Pralnai zamknieta");
            end if;
   end duzePranie;

   Procedure zwiekszSzybkosc is
   begin
   Szybkosc := Szybkosc - 0.10;
   end zwiekszSzybkosc;

   Procedure zmniejszSzybkosc is
   begin
   Szybkosc :=Szybkosc + 0.10;
   end zmniejszSzybkosc;
-------------------------------------------------TASKI
TASK Czas is entry Start; end Czas;
TASK Ekran is entry Start; end Ekran;
TASK PRALKA1 is entry Start; end PRALKA1;
TASK PRALKA2 is entry Start; end PRALKA2;
TASK PRALKA3 is entry Start; end PRALKA3;
TASK PRALKA4 is entry Start; end PRALKA4;
   TASK PRALKA5 is entry Start; end PRALKA5;
   TASK PRACOWNIK is entry Start; end Pracownik;
-------------------------------------------------PRALKA1
   TASK BODY PRALKA1 IS
            lokal: Integer;
Minutal: Minuta_typ := Minuta;
Godzinal: Godzina_Typ := Godzina;
   BEGIN
    accept Start;
    while true loop
         if(Klienci(Wskaznik_pralek)=1 and Otwarta) then
            lokal := Wskaznik_pralek;
            Klienci(lokal):=3;
            Wskaznik_pralek:=Wskaznik_pralek+1;
                        delay Szybkosc;
                        Pralka_1:=1;
            delay Szybkosc*60;
            Pralka_1:=2;
                        DELAY Szybkosc*5;
            Klienci(lokal):=4;
            Pralka_1:=0;
        end if;
    end loop;
END PRALKA1;
-------------------------------------------------PRALKA2
   TASK BODY PRALKA2 IS
      lokal: Integer;
BEGIN
    accept Start;
    while true loop
        if(Klienci(Wskaznik_pralek)=1 and Otwarta and Pralka_1=1) then
                        lokal := Wskaznik_pralek;
            Klienci(lokal):=3;
            Wskaznik_pralek:=Wskaznik_pralek+1;
                        delay Szybkosc;
                        Pralka_2:=1;
            delay Szybkosc*60;
            Pralka_2:=2;
                        DELAY Szybkosc*5;
            Klienci(lokal):=4;
            Pralka_2:=0;
        end if;
    end loop;
END PRALKA2;
-------------------------------------------------PRALKA3
   TASK BODY PRALKA3 IS
      lokal: Integer;
BEGIN
    accept Start;
    while true loop
         if(Klienci(Wskaznik_pralek)=1 and Otwarta and Pralka_1=1 and Pralka_2=1) then
                        lokal := Wskaznik_pralek;
            Klienci(lokal):=3;
            Wskaznik_pralek:=Wskaznik_pralek+1;
                        delay Szybkosc;
                        Pralka_3:=1;
            delay Szybkosc*60;
            Pralka_3:=2;
                        DELAY Szybkosc*5;
            Klienci(lokal):=4;
            Pralka_3:=0;
        end if;
    end loop;
END PRALKA3;
-------------------------------------------------PRALKA4
   TASK BODY PRALKA4 IS
      lokal: Integer;
   BEGIN
    accept Start;
    while true loop
         if(Klienci(Wskaznik_pralek)=1 and Otwarta and Pralka_1=1 and Pralka_2=1 and Pralka_3=1) then
                        lokal := Wskaznik_pralek;

            Klienci(lokal):=3;
            Wskaznik_pralek:=Wskaznik_pralek+1;
            delay Szybkosc;
                        Pralka_4:=1;
            delay Szybkosc*60;
            Pralka_4:=2;
                        DELAY Szybkosc*5;
            Klienci(lokal):=4;
            Pralka_4:=0;
        end if;
    end loop;
END PRALKA4;
-------------------------------------------------PRALKA5
   TASK BODY PRALKA5 IS
      lokal: Integer;
BEGIN
    accept Start;
    while true loop
         if(Klienci(Wskaznik_pralek)=2 and Otwarta) then
                        lokal := Wskaznik_pralek;

            Klienci(lokal):=5;
            Wskaznik_pralek:=Wskaznik_pralek+1;
                        delay Szybkosc;
                        Pralka_5:=1;
            delay Szybkosc*90;
            Pralka_5:=2;
                        DELAY Szybkosc*5;
            Klienci(lokal):=4;
            Pralka_5:=0;
        end if;
    end loop;
   END PRALKA5;
   -------------------------------------------------Pracownik
   TASK BODY PRACOWNIK IS
   BEGIN
      accept Start;
        while true loop
   select PRALKA1.Start;
   then abort select PRALKA2.Start;
   then abort select PRALKA3.Start;
   then abort select PRALKA4.Start;
   then abort PRALKA5.Start;
            end select;end select;end select;end select;
    DELAY Szybkosc;
   end loop;
   END PRACOWNIK;
-------------------------------------------------ZADANIE USTAWIAJACA CZAS
 TASK BODY Czas IS
            BEGIN
               accept Start;
      WHILE True LOOP
       Minuta:=Minuta+1;
    If(Minuta = 60) THEN
            Minuta := 0;
        Godzina:=Godzina+1;
        If(Godzina = 24) THEN
            Godzina := 0;
        end IF;
         END IF;
DELAY Szybkosc;
      END LOOP;
   END Czas;
-------------------------------------------------ZADANIE WYPISUJACE NA EKRANIE
 TASK BODY Ekran IS
    BEGIN
        accept Start;
        WHILE True LOOP
            Put(ASCII.ESC & "[2J");
            Put_Line("Zegar: " & Godzina'Img & ":" & Minuta'Img & "         f-zwieksz szybkosc, s-zwolnij, a-dodaj klienta, d-duze pranie          ");
            if (Pralka_1 = 0 )then Put_Line("Pralka 1: Wylaczona");
            elsif (Pralka_1 = 1)then  Put_Line("Pralka 1: Pierze");
            else Put_Line("Pralka 1: Wyciaganie prania");
            end if;
            if (Pralka_2 = 0 )then Put_Line("Pralka 2: Wylaczona");
            elsif (Pralka_2 = 1)then  Put_Line("Pralka 2: Pierze");
            else Put_Line("Pralka 2: Wyciaganie prania");
            end if;
            if (Pralka_3 = 0 )then Put_Line("Pralka 3: Wylaczona");
            elsif (Pralka_3 = 1)then  Put_Line("Pralka 3: Pierze");
            else Put_Line("Pralka 3: Wyciaganie prania");
            end if;
            if (Pralka_4 = 0 )then Put_Line("Pralka 4: Wylaczona");
            elsif (Pralka_4 = 1)then  Put_Line("Pralka 4: Pierze");
            else Put_Line("Pralka 4: Wyciaganie prania");
            end if;
            if (Pralka_5 = 0 )then Put_Line("Pralka 5: Wylaczona");
            elsif (Pralka_5 = 1)then  Put_Line("Pralka 5: Pierze");
            else Put_Line("Pralka 5: Wyciaganie prania");
            end if;
            if(Wskaznik_kolejki > 10) then
            for I in (Wskaznik_kolejki - 10)..Wskaznik_kolejki loop
                if(Klienci(I) = 0)then put("");
                elsif(Klienci(I) = 1) then Put_Line("klient nr#"& I'Img & "czeka w kolejce");
                elsif(Klienci(I) = 2) then Put_Line("klient nr#"& I'Img & "ma duze pranie i czeka w kolejce");
               elsif(Klienci(I) = 3) then Put_Line("klient nr#"& I'Img & "jego pranie sie pierze");
                  elsif(Klienci(I) = 5)then Put_Line("klient nr#"& I'Img & "jego duze pranie sie pierze");
                else  Put_Line("klient nr#"& I'Img & "odebral pranie");
                end if;
            end loop;
            else
                for I in 1..Wskaznik_kolejki loop
                    if(Klienci(I) = 0)then put("");
                    elsif(Klienci(I) = 1)then Put_Line("klient nr#"& I'Img & "czeka w kolejce");
                    elsif(Klienci(I) = 2)then Put_Line("klient nr#"& I'Img & "ma duze pranie i czeka w kolejce");
               elsif(Klienci(I) = 3)then Put_Line("klient nr#"& I'Img & "jego pranie sie pierze");
               elsif(Klienci(I) = 5)then Put_Line("klient nr#"& I'Img & "jego duze pranie sie pierze");
                    else Put_Line("klient nr#"& I'Img & "odebral pranie");
                    end if;
                end loop;
            end if;
            DELAY Szybkosc;
        end loop;
    END Ekran;
begin
   Czas.Start;
   Ekran.Start;
   PRACOWNIK.Start;
   --Klienci.Start;
    loop
        Get(C);
        case C is
            WHEN 'f' => zwiekszSzybkosc;
            WHEN 's' => zmniejszSzybkosc;
                        WHEN 'a' => dodajKlienta;
                        When 'd' => duzepranie;
            WHEN others =>  put ("");
      end case;
      delay 0.005;
    end loop;

END pralnia;