Определить время через 10 секунд - Pascal ABC (14567)

Формулировка задачи:

Дано время (часы, минуты, секунды)-три натуральных числа. Определить время через 10 секунд.

Решение задачи: «Определить время через 10 секунд»

Листинг программы

var
a,b,c:integer;
begin
cls;
writeln('Введите время в формате "ЧЧ ММ СС"');
readln(a,b,c);
if (a>23) or (b>59) or (c>59) then
 writeln('Недопустимое время.')
else
 begin
  inc(c,10);
  if c>59 then
   begin
    c:=c-60;
    inc(b);
    if b=60 then
     begin
      b:=0;
      inc(a);
      if a=24 then
       begin
        a:=0;
        b:=0;
       end;
     end;
   end;
  writeln(a,' час.',b,' мин.',c,' сек.');
 end;
end.

Объяснение кода листинга программы

Создается переменная a типа integer, которая будет использоваться для хранения значения часов.
Создается переменная b типа integer, которая будет использоваться для хранения значения минут.
Создается переменная c типа integer, которая будет использоваться для хранения значения секунд.
Выводится сообщение «Введите время в формате ЧЧ ММ СС».
Считывается введенное пользователем значение для a, b и c с помощью функции readln().
Проверяется, является ли введенное время допустимым (не превышает 23 часа, 59 минут и 59 секунд).
Если время допустимое, увеличивается значение переменной c на 10 секунд.
Если значение c превышает 59, то уменьшается на 60 и затем увеличивается значение переменной b на 1.
Если значение b равно 60, то уменьшается до 0, а затем увеличивается значение переменной a на 1.
Если значение a равно 24, то обнуляются и a, и b.
Выводится отформатированное время с использованием введенных пользователем значений.