Известны данные о марках автомобилей и их

// 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-gt;t.cost).Average;
 var p:=a.Select(t-gt;Абс(t.cost-m)).ToArray.IndexMin;
 Writeln('Избран автомобиль марки ',a[p].brand,' ценою ',a[p].cost)
end.