(Pascal) Нужно составить программу подсчета количества часов, минут и секунд в данном числе суток. Число суток ввести с клавиатуры.

[email protected] в категроии Информатика, вопрос открыт 01.09.2018 в 17:50

Неправильно считает секунды, в чём ошибка?

var
s,m,h,days: integer;
begin

writeln('Введите кол-во дней');
read(days);
s:=86400;
m:=s div 60;
h:=m div 60;

for var i:=1 to days do
s:=s*days;
m:=m*days;
h:=h*days;

writeln(s,' — секунд в ',days,' днях');
writeln(m,' — минут в ',days,' днях');
writeln(h,' — часов в ',days,' днях');
end.