На основе сведений о ежедневном пробеге автомобилей транспортного управления рассчитать среднее значение пробега по всему предприятию за каждые сутки месяца (30 дней). Количество автомобилей принять равным N — Pascal(Паскаль)

ar
 n,i: integer;
 k,sum:real;
begin
 writeln ('Введите количество машин');
 read(n);
 sum := 0;
 for i := 1 to n do
 begin
  writeLn('Пробег ',i,' машины');
  read(k);
  Sum := Sum + k;
 end;
 Sum := sum / 30;
 WriteLn('Средний пробег в день ',  sum);
 readln;
end.