Решение задач на построение линейных алгоритмов на языке программирования "Паскаль" (8 класс)
Помогите решить 2 задачи, пожалуйста.
1)Напишите программу в которой на вход подается целое число, время в секундах. Результатом является кол-во суток.
2)Известна масса некоторого тела в фунтах. Определите массу этого тела в кг. 1 фунт = 0,453 кг.

Спасибо большое

В сутках 86400 секунд, а не 8640

как исправить?

program n1;var a,day:integer;beginwrite('введите количество секунд ==> ');readln(a);day:=a div 8640;writeln('количество целых суток ==> ',day);end.program n2;var a:integer;    funt:real;beginwrite('введите количество фунтов ==> ');readln(a);funt:= (a * 0.453);writeln('количество кг. ==> ',funt);end.