Помогите с информатикой

Так это изи

мда задача для первого класса

program CalculateS;
var
i, j: integer;
a, b, S: real;
begin
S := 0; // Инициализация суммы
for i := 1 to 15 do
for j := 1 to 25 do
begin
a := i; // Присвоение значения i
b := j; // Присвоение значения j
S := S + (cos(a) + sin(b)); // Вычисление суммы
end;
writeln('Значение S = ', S:0:2); // Вывод результата
end.


Нейросеть в помощь