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

Pascalvarn,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.