умоляю, информатика 8 класс.Составьте блок-схему вычисления "сколько в N сутках часов, минут, секунд"

Блок - схема

Объяснение:

F - ответ
1)
A B AvB F
0 0   0    0
1 0   1    1
0 1   1    1
1 1   1    1
2)
A B (отриц)B   Bv(отриц)B  F
0 0      1                  1        1
0 1      0                  1        1
1 0      1                  1        1
1 1      0                  1        1
3)
A B C AvBvC  F
0 0 0     0       0
0 0 1     1       1
0 1 0     1       1
0 1 1     1       1
1 0 0     1       1
1 0 1     1       1
1 1 0     1       1
1 1 1     1       1
4)
A B C (отриц)C    AvBv(отриц)C     F
0 0 0       1                   1              0
0 0 1       0                   0              1
0 1 0       1                   1              0
0 1 1       0                   1              0
1 0 0       1                   1              0
1 0 1       0                   1              0
1 1 0       1                   1              0
1 1 1       0                   1              0

Delphivar  a1, a2: array of integer;  n, c, i: integer; procedure PrintDescending(a: array of integer); var i, j, max: integer; begin  for i := 0 to Length(a) - 1 do  begin    for j := 0 to Length(a) - 1 do      if a[j] > a[max] then max := j;    Write(a[max], ' ');    a[max] := -10001;  end; end; begin  //Запрашиваем ввод длины массива:  Write('Введите длину массива: ');  Read(n);    //Устанавливаем длину массивов:  SetLength(a1, n);  SetLength(a2, n);    //Заполняем первый массив случайными числами:  for i := 0 to n - 1 do    a1[i] := Random(201) - 100;    //Заполняем второй массив только нечётными элементами первого:  for i := 0 to n - 1 do    if Abs(a1[i]) mod 2 = 1 then      begin      a2[c] := a1[i];      c := c + 1;    end;    //Урезаем второй массив:  SetLength(a2, c);    //Выводим первый массив:  for i := 0 to n - 1 do    Write(a1[i], ' ');  Writeln;    //Выводим второй массив в порядке убывания:  if c = 0 then Write('Нечётных элементов нет.')  else PrintDescending(a2); end.

Пример работы: