Массив д состоит из действительных чисел от 0.1 до 0.9 с шагом 0.1. определите формулу для заполнения массива

1-я задача: 
<span>Я<=Г </span>
<span>Г=15 </span>
<span>Ответ: плодов не более 30 (15 груш и не более 15 яблок) </span>

Задание уже было решено тут: znanija.com/task/21697361

// PascalABC.NET 3.3, сборка 1576 от 16.11.2017
// Внимание! Если программа не работает, обновите версию!

Begin
var n:=ReadInteger('n =');
var sum1:=n mod 10 +n div 1000;
var sum2:= n div 10 mod 10 + n div 100 mod 10;
Writeln('сумма крайних членов равна ', sum1);
Writeln('сумма средних членов равна ', sum2);
end.

Принтскрин на клавиатуре нажми, открой пэинт - вставь из буфера, потом выделить всё, (ctrl+A), зайти в меню-изменить размер, выбрать не проценты а пиксели, выставить нужное разрешение и нажать ок, потом в меню св-вах поставить тоже разрешение и сохранить картинку на рабочий стол)

346 делишь на 8 и каждый раз получившийся остаток записываешь там получается 532