var m,s:longint;

 r:boolean;

 k:string;

begin

 repeat

   repeat

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

     {$I-}

     readln(s);

     {$I+}

     r:=(IOResult = 0) and (s >= 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 <> '';

end.