Идет какая-то секунда суток.определите сколько полных часов, полных минут и секунд с начала суток

Var n,h,m,s:int32;
begin
write('n = ');
readln(n);
h:=n div 3600;
m:=(n-h*3600) div 60;
s:=n mod 60;
writeln('h = ',h,' m = ',m,' s = ',s);
end.

Пример:
n = 55198
h = 15 m = 19 s = 58

В минуте 60 секунд. 
1) Разделить число на 3600.Получим .целое число означает текущий час.
Если  из задонного числа вычесть  получившееся целое число умноженное на 3600 получим число секунд в текущих  минутах.
2)это число необходимо разделить на 60. Целое число будет означать текущую минуту.
3) вычитаем из оставшегося числа число минут умноженное на 60 получим текущую секунду.

Например
Задано число 66276.

часов.
    18 * 3600 = 64800
    66276 - 64800 = 1476
минуты.
     24 * 60 = 1440
     1476 -1440 = 36

ответ: 18 часов , 24 минуты, 36 секунд.

№1.
Тысячи путей ведут к заблуждению, к истине - только один.
Для начала надо посчитать, сколько всего символов в данном предложении, следует считать знаки препинания и пробелы. 
Посчитав все знаки (Итого:57), мы получаем, что вес предложения 57 байт, переводим в биты, то есть умножаем на 8 (1 байт = 8 бит):
57*8=456.

№2.
Кодировка Unicode - это кодировка, каждый символ которой весит 16 бит. Итак, я посчитала количество знаков в предложении (Итого:32). Дальше: 16*32=512 бит.

№3.
Итак, мы видим, что из 16-битной кодировки получилась 8-битная, а это значит, что она уменьшилась вдвое.
8x=800
x=100 (у тебя ошибка, я посмотрела аналогичные задания, отличающиеся только значениями)

№4 допишу в комментарии.

// PascalABC.NET 3.0, сборка 1088
const
  nn=30;
  mm=30;
var
  d:array[1..nn,1..mm] of integer;
  m,n,i,j,s,k:integer;
begin
  Writeln('Введите число строк и столбцов массива: '); Read(n,m);
  Randomize;
  Writeln('*** Исходный массив ***');
  s:=0; k:=0;
  for i:=1 to n do begin
    for j:=1 to m do begin
      d[i,j]:=Random(101)-50;
      Write(d[i,j]:4);
      if (d[i,j]>0) and (d[i,j] mod 3 = 0) then begin
        s:=s+d[i,j]; Inc(k)
        end
      end;
    Writeln
  end;
  Writeln('Искомое среднее равно ',s/n:0:5)
end.

Тестовое решение:
Введите число строк и столбцов массива:
10 12
*** Исходный массив ***
  23 -50  24 -15 -43  49 -50 -23  37 -42  36 -40
  13 -37 -47 -47 -17  18  27  39 -30 -13  44 -12
 -20  45   9  44  -6 -17  49  27   3 -19 -11  39
  37 -39  37   8   8 -16 -48 -28 -19  45   2 -30
   6 -19  17  17 -11  -7 -31 -15 -44 -15 -46 -38
 -11 -43  33   3 -40 -42   8 -18  24 -36 -34 -29
  32 -31 -20  37 -15  21 -43 -14  -8 -11 -12 -37
  16 -19 -12 -41 -38 -46  32   1 -43  25 -31   1
   1  -1 -38 -28 -13 -30  -4  -9 -36  -4  36 -31
 -37 -17 -50 -15 -22  18  20 -50  20  20  38  29
Искомое среднее равно 45.30000