Задача на Паскале. В бригаде, работающей на уборке сена, имеется 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.