Известны три натуральных числа c– часы, m – минуты, s – секунды. написать программу используя условный оператор, которая определяет время через 15 секунд. нужно сделать через pascal !

Var
c,m,s:integer;
begin
readln(c,m,s);
if s>=45 then begin
m:=m+1;
s:=s+15-60;
end
else 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.