решение задач записи в программку на языке Паскаль: Дано число секунд.

var m,s:longint;

 r:boolean;

 k:string;

begin

 repeat

   repeat

     write('Задайте количество секунд: ');

     I-

     readln(s);

     I+

     r:=(IOResult = 0) and (s gt;= 0);

     if not r then

       writeln('Неверный ввод. Обязано быть задано целое неотрицательное число. Повторите.');

   until r;

   s:=s mod (60 * 60);

   m:=s div 60;

   s:=s mod 60;

   writeln('Время: минут: ', m, ', секунд: ', s);

   writeln('Повторить - Enter. Выход - хоть какой знак + Enter.');

   readln(k);

 until k lt;gt; '';

end.