Создать программу на любом языке. Нужно сделать аналогичную программу с картинки. Вот условия к заданию не банить, ничего качать не там только текст к задаче.

Option Explicit 'Требование описывать все переменные

Private Sub CommandButton1_Click()

   Dim n As Integer, i As Integer

   Dim x As Double, y As Double, c As Double

   n = CInt(Cells(2, 1))

   x = CDbl(Cells(2, 2))

   y = 0

   c = x

   For i = 1 To n

       y = y + Cos(c)

       c = c * x

   Next i

   Cells(2, 3) = y

End Sub

Не дает прицепить экселевский файл. Поэтому переименовал r1.xslx для Excel2010 в r1.xlsx.pdfю Скачай и убери расширение .pdf в имени.

Или можно сохранить как есть а потом сначала вызывать Эксель и в нем открыть этот файл игнорируя расширение.

На PascalABC.NET, потому что в остальных паскалях функция не может вернуть массив, а по условию она должна его заполнять.

function Init(n: integer): array of integer;

begin

 Result := new integer[n];

 Result[0] := 9;

 for var k := 1 to Result.High do

   Result[k] := (5 * Result[k-1] + 7) mod 1000;

end;

function IsSumM(n, M: integer): boolean;

begin

 var s := 0;

 while n > 0 do

 begin

   s += n mod 10;

   n := n div 10

 end;

 Result := s = M  

end;

begin

 var (n, M) := ReadInteger2('Введи n и М');

 Init(n).Println.Where(p -> IsSumM(p, M)).Println

end.