var 
i,n,count: integer;
time, work:double;

begin
i := 1;
writeln('Сколько косилок?');
readln(count);
writeln('Сколько работает первая косилка?(часов)');
readln(time);

while i<=count do
begin
i := i + 1;
work := work + time;
time := time + 0.16;
end;

writeln('Бригада проработала ',work,' часов');
end.