Составить блок-схему и написать программу

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

Блок-схема (с циклом) - в прилагаемом файле.Программа (с циклом):var n,m,m1,s,i:integer;beginreadln(n,m);m1:=m*60;s:=m1;for i:=2 to n do begin m1:=m1+10; s:=s+m1 end;writeln('s = ',s div 60,' час ',s mod 60,' мин');end.Пример:5 2s = 11 час 40 мин