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

Pascal

varn,m,i :Integer;
begin 
  readln(n); 
  readln(m);
  m:=m * 60; 
    for i:=1 to n do 
      begin
        m:=m+10;
       end;  
   write(m div 60+' часа(ов)');
end.