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

Question

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

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

Answer 1

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.