Pascal ABC. Введено количество секунд. Вывести количество часов, минут и секунд.

var a:integer;

b:real;

begin  

writeln('Введите секунды'); readln(a);

writeln('Секунды = ' ,a);

b := a / 60; // перевод в минуты

if a gt;= 60 then  // если больше 60 секунд выводим минутки  

writeln('Минутки = ', b)

else  

writeln('Минутки = 0');

if b gt;= 60 then // если больше 60 минут выводим часы

 writeln('Часы = ', b / 60)

 else  

writeln('Часы = 0');

end.