Решить в паскаль: дано время: часы, минуты, секунды. определите время через 10 секунд. начало, думаю, такое. а обратно в часы и минуты перевести не могу. выдает ошибку program upr3; var h,m,s,c,i: real; begin readln (h,m,s); i: = h*3600+m*60+s; c: = i+10;

Var
  h, m, s, i: integer;

begin
  readln(h, m, s);
  i := h * 3600 + m * 60 + s + 10;
  h := i div 3600;
  m := i mod 3600 div 60;
  s := i mod 60;
  writeln(h, ' ', m, ' ', s);
end.