program DOBJE;
uses crt;
var ogensom:Integer;
var db1,db2,db3,db4,db5,db6:Integer;
var correct:Integer;
begin
     correct:=0;
     clrscr;
     writeln('--------------------------------------------------');
     writeln('Dit programma geeft het aantal mogelijkheden weer');
     writeln('om een ogensom k met 6 dobbelstenen te bereiken');
     writeln('--------------------------------------------------');
     writeln('Geef de ogensom in');
     read(ogensom);

     WHILE ((ogensom<6) OR (ogensom >36)) DO
      BEGIN
      writeln('Ongeldige invoer! Geef correcte ogensom in!');
      read(ogensom);
      END;

     for db1:=1 to 6 do
      begin

       for db2:=1 to 6 do
        begin

        for db3:=1 to 6 do
         begin

          for db4:=1 to 6 do
           begin

            for db5:=1 to 6 do
            begin

             for db6:=1 to 6 do
             begin
             if (db1+db2+db3+db4+db5+db6) = ogensom then BEGIN correct:=correct+1;
             write('|',db1,'-',db2,'-',db3,'-',db4,'-',db5,'-',db6,'|'); END;
             end;

            end;

           end;
         end;

        end;
      end;

writeln('');
writeln('Aantal mogelijkheden om ',ogensom,' als ogensom te krijgen bedraagt ',correct);
end.