4slajdyNaStrone

program slajdyNumery;
uses crt;
var
f,pNp : byte;
odK, doK : integer;
a, strNiep, strParz : integer;
t : text;
kolNC, kolPC, kolC : integer;
kolN, kolP, kol : array [1..10000] of integer;

procedure wyswietlKolekcje(ktora : integer; liczba : integer);
begin
     for a := 1 to liczba do begin
         case ktora of
              1 : begin
                   write(t, kolN[a]);
              end;
              2 : begin
                   write(t, kolP[a]);
              end;
              3 : begin
                   write(t, kol[a]);
              end;
          end;
          if a <> liczba then write(t, ', ');
     end;
end;

begin clrscr;
      f := 2;
      REPEAT
            if f = 0 then
            begin
                 clrscr;
                 writeln('Podany przez ciebie przedzial slajdow jest nieprawidlowy');
                 readkey;
            end;
            writeln('Podaj przedzial slajdow, jaki bedziesz chcial drukowac');
            write('Od: ');
            readln(odK);
            write('Do: ');
            readln(doK);
            if (odK >= doK) OR (odK <= 0) OR (doK <= 0) then f := 0 ELSE f := 1;
      UNTIL f = 1;
      assign(t, 'strony.txt');
      rewrite(t);
      kolNC := 0;
      kolPC := 0;
      kolC := 0;
      pNp := 0;
      strNiep := 0;
      strParz := 0;
      for a := odK to doK do
      begin
          if pNp = 0 then
          begin
               strNiep := strNiep + 1;
               if (a + 1 <= doK) then
               begin
                    kolNC := kolNC + 1;
                    kolN[kolNC] := a + 1;
                    kolC := kolC + 1;
                    kol[kolC] := a + 1;
               end;
               kolNC := kolNC + 1;
               kolN[kolNC] := a;
               kolC := kolC + 1;
               kol[kolC] := a;
               if (a + 3 <= doK) then
               begin
                    kolNC := kolNC + 1;
                    kolN[kolNC] := a + 3;
                    kolC := kolC + 1;
                    kol[kolC] := a + 3;
               end;
               if (a + 2 <= doK) then
               begin
                    kolNC := kolNC + 1;
                    kolN[kolNC] := a + 2;
                    kolC := kolC + 1;
                    kol[kolC] := a + 2;
               end;
               pNp := 1;
          end
          ELSE
          begin
               strParz := strParz + 1;
               if (a + 1 <= doK) then
               begin
                    kolPC := kolPC + 1;
                    kolP[kolPC] := a + 1;
                    kolC := kolC + 1;
                    kol[kolC] := a + 1;
               end;
               kolPC := kolPC + 1;
               kolP[kolPC] := a;
               kolC := kolC + 1;
               kol[kolC] := a;
               if (a + 3 <= doK) then
               begin
                    kolPC := kolPC + 1;
                    kolP[kolPC] := a + 3;
                    kolC := kolC + 1;
                    kol[kolC] := a + 3;
               end;
               if (a + 2 <= doK) then
               begin
                    kolPC := kolPC + 1;
                    kolP[kolPC] := a + 2;
                    kolC := kolC + 1;
                    kol[kolC] := a + 2;
               end;
               pNp := 0;
          end;
          a := a + 3;
      end;
      write(t, 'Nieparzyste: ');
      wyswietlKolekcje(1, kolNC);
      write(t, ' - łącznie stron ', strNiep);
      if(kolPC > 0) then
      begin
         writeln(t, '');
         write(t, 'Parzyste: ');
         wyswietlKolekcje(2, kolPC);
         writeln(t, ' - łącznie stron ', strParz);
         write(t, 'Razem: ');
         wyswietlKolekcje(3, kolC);
      end;
      close(t);
end.