Я конечно не мастер Паскаля, но попробую. В паскале не проверяла, недочеты могу быть
1) Var s,m:integer
begin
writeln('Введите число секунд');
Read(s);
(если у вас есть If)
If s > 60 then begin
m:= s div 60 - (Находим минуты, беря целое число от деления на 60)
s:= s - (m*60) - (Находим остаток секунд)
writeln(m,' мин.',s,' сек.')
end
else writeln(s,' сек.')
end.
2) Var s,m,z,m1:integer
begin
writeln('Введите число секунд');
Read(s);
If s > 60 then begin
m:= s div 60 - (Находим минуты, беря целое число от деления на 60)
s:= s - (m*60) - (Находим остаток секунд)
If m > 60 then begin
z:= m div 60; - (Находим часы)
m1:= m - (z*60); - (Находим остаток минут)
writeln(s,' ч.',m,' мин.',s,' сек.');
end
else writeln(m,' мин.',s,' сек.');
else writeln(s,' сек.')
А третью лень. Если что проверь в паскале