Известны три натуральных числа C– часы, M – минуты, S –
секунды. Написать программу используя условный оператор, которая
определяет время через 15 секунд.

Пожалуйста нужно сделать через Pascal !

varc,m,s:integer;beginreadln(c,m,s);if s>=45 then begin m:=m+1;s:=s+15-60;endelse s:=s+15;if m>=59 then begin c:=c+1;m:=0;end;if c>=24 then c:=0;writeln(c,' ',m,' ',s);end.