ПОЖАЛУЙСТА,СОСТАВЬТЕ Программку ПАСКАЛЬ ДЛЯ РЕШЕНИЯ ЭТИХ 3-х ЗАДАЧ

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