Смурфетта сшила шапки для своих братьев. на первую шапку она потратила 4 часа, на каждую следующую шапку она тратила на 10 минут меньше. сколько времени она потратил на n шапок? составить программу на паскале.

Var sum, i,n,mins:integer;
begin
   read(n);
   mins:=4*60;
   sum:=0
   for i:=1 to n do begin
      sum := sum + mins;
      mins := mins - 10;
   end;
   writeln('minut potracheno:',sum);
end.