Известны данные о марках автомобилей и их стоимости(Лада-400тыс,БМВ-700тыс,Шеврале-800тыс,Нисан-1000000).Необходимо обеспечить ввод этих данных в программу,после этого следует найти авто максимально близкий к средней стоимости,вычисленный по всем авто.Написать программу реализующие поставленные задачи

// PascalABC.NET 3.3, сборка 1634 от 14.02.2018// Внимание! Если программа не работает, обновите версию!type  tCar=record    brand:string;    cost:real;  end;  begin  var a:=new tCar[4];  for var i:=0 to 3 do begin    var b:=ReadlnString(i+1+') введите марку и стоимость в рублях:').ToWords;    a[i].brand:=b[0]; a[i].cost:=b[1].ToReal;    end; var m:=a.Select(t->t.cost).Average; var p:=a.Select(t->Abs(t.cost-m)).ToArray.IndexMin; Writeln('Выбран автомобиль марки ',a[p].brand,' стоимостью ',a[p].cost)end.