Question

Неправильно выдаёт часы ? program z1; var m, d, n, m1, s, m2, h: integer; begin write('введите значение m: '); readln(m); d : = m div 86400; n : = m div 86400; m1 : = 0; m1 : = 1; s : = m mod 60; m : = m div 60; m2 : = m mod 60; m : = m div 60; h : = m mod 60; if h > 23 then
begin while h < 24 do begin h : = h - 24; n : = n + 1; end; end; if n > 31 then //январь begin n : = n - 31; m1 : = 2; if d > 28 then //февраль begin n : = n - 28; m1 : = 3; if n > 31 then //март begin n : = n - 31; m1 : = 4; if n > 30 then//апрель begin n : = n - 30;
m1 : = 5; if n > 31 then//май begin n : = n - 31; m1 : = 6; if n > 30 then//июнь begin n : = n - 30; m1 : = 7; if n > 31 then//июль begin n : = n - 31; m1 : = 8; if n > 31 then//август begin n : = n - 31; m1 : = 9; if n > 30 then//сентябрь begin n : = n - 30; m1 : = 10;
if n > 31 then//октябрь begin n : = n - 31; m1 : = 11; if n > 30 then//ноябрь begin n : = n - 30; m1 : = 12; if n > 31 then//декабрь begin n : = n - 31; m1 : = 1; end; end; end; end; end; end; end; end; end; end; end; end; if n> 365 then begin while n< 365 do
begin n: =n-365; end; end; writeln('день с начала года: ', d); writeln('число: ', n); writeln('месяц: ', m1); writeln('время: ', h, ' ', m2, ' ', s); end.