написать программу пересчета величин временного интервала

[rom6520]

Написать программу пересчета величин временного интервала, заданного в минутах,в величину ,выраженную в часах и минутах??? Кто знает как это сделать ???Это линейная программа

[Mad_Cat]

var min:integer;
begin
read(min);
writeln(min div 60,':',min mod 60);
readln;
end.

[megamagor]

вводим текщее состояние времени (в: часах, минутах, секундах), и получаем результат, предворительно изменяя состояние времени (путём ввода нового значения времени)

program abс;
var m,n,p,q,r,y,z,o,b,k:integer;
begin
  write ('кол-во часов:');
  readln (m);
  write ('кол-во минут:');
  readln (n);
  write ('кол-во секунд:');
  readln (k);
  write ('текущее время:', m:3,n:3,k:3);
  writeln (' прибавляем некоторое время');
  write ('кол-во часов:');
  readln (p);
  write ('кол-во минут:');
  readln (q);
  write ('кол-во секунд:');
  readln (r);
  y:=m*3600+n*60+k;
  z:=p*3600+q*60+r;
  o:=y+z;
  m:= o div 3600;
  if m>=24 then
    m:=m-24;
  n:= (o mod 3600)div 60;
  if n>=60 then
    begin
      b:=n div 60;
      m:=m+b;
      n:=n mod 60;  
    end;
  k:=(o mod 3600)mod 60;
  if k>=60 then 
    begin
      c:=k div 60;
      n:=n+k;
      k:=k mod 60;
    end;
  writeln(m,' часов ',n,' минут ',k,' секунд ');
  readln
end.

[rom6520]

Пацаны от души спасибо выручили!!!! С праздником вас!!