Решите 2 в паскаль. ! 1)дано количество секунд с начала суток. сколько полных часов с начала суток, сколько минут с начала очередного часа и сколько секунд с начала очередной минуты? 2)сколько квадратов со стороной а поместится в прямоугольнике со сторонами x и y? вычислите незаполненную площадь

1) var x,s,m,c: integer;
begin
write('введите количество секунд: ');readln(x);
c:=x div 3600;
m:= (x mod 3600) div 60;
s:=(x mod 3600) mod 60;
часов ',m,' минут ', s,' секунд ');
end.
решение 2 смотри во вложении