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

Program    cosilka;
const    dopvrem=0.6;
var
      i:integer;
      N:integer;
      m:integer;
      brigada:real;
begin
writeln('Введите количество сенокосилок:');
readln(N);
writeln('Введите количество часов у первой сенокосилки:');
readln(m);
brigada:=m;
for i:=1 to N do brigada:=brigada+dopvrem;
writeln('ответ:', brigada:3:1,''часов'':3);
End.