Ввести массив К(4).Найти произведение его элементов

// Pascal ABC.NET

begin

 var a := ReadArrInteger(4);

 a.Product.Print

end.

На самом деле задание не шибко грамотное, потому что массив тут совершенно ни к чему и решение такое:

begin

 ReadSeqInteger(4).Product.Print

end.