Перевод времени, часы в минуты и обратно Опции

[111]

Здравствуйте!
Подскажите, плиз, как перевести минуты в часы (и обратно) в следующей задачке:
В бригаде, работающей на уборке сена, имеется N косилок. Первая из них работала m часов, а каждая следующая на 10 минут дольше, чем предыдущая. Сколько часов проработала вся бригада?
плиз, люди, подскажите! Задачку нужно сдать уже послезавтра!

[kent]

У меня вот так получилось...

uses Crt;
var m,N,i : Integer;
    Hours,minuten,step : Integer;
begin
     Clrscr;
     Write('Input N:');
     ReadLn(N);
     Write('Input m:');
     ReadLn(m);
     step := m * 60;
     minuten := m * 60;
     for i := 2 to N do begin
        step := step + 10;
        minuten :=  minuten + step;
     end;
     hours := minuten div 60;
     minuten := minuten mod 60;
     WriteLn('Works Time:',hours,' hours ',minuten,' minuten;');
     ReadKey;
end.