Вычислить значение суммы - Pascal ABC (14601)

Формулировка задачи:

По условию нужно вычислить:

program primer;
var
  k,i:integer;
  s:real;
begin
  write('Введите значение k:');
  readln(k);
  write('Введите значение i:');
  readln(i);
  k:=0;
  i:=0;
   for k:=1 to 10 do
    begin
     s:=exp(3*ln(k));
   for i:=1 to 15 do
    begin
     s:=sqr(k-i);
  end;
  end;
  writeln(' s=',s);
end.

Решение задачи: «Вычислить значение суммы»

Листинг программы

program primer;
var
  k,i:integer;
  s,s1,s2:real;
begin
  write('Введите значение k:');
  readln(k);
  write('Введите значение i:');
  readln(i);
  k:=0;
  i:=0;
   for k:=1 to 10 do
    begin
     s1:=exp(3*ln(k));
     s2:=0;
     for i:=1 to 15 do
       begin
         s2:=s2 + sqr(k-i);
     end;
     s:= s + s1*s2;
 
  end;
  writeln(' s=',s);
end.

Объяснение кода листинга программы

Программа запрашивает у пользователя значения двух переменных k и i.
Затем программа присваивает переменным k и i значения 0.
Далее следует цикл for, который выполняется от 1 до 10.
Внутри цикла вычисляется значение переменной s1 с помощью функции exp() и переменной ln() из пакета math.
Затем вычисляется значение переменной s2 с помощью цикла for, который выполняется от 1 до 15.
Внутри цикла вычисляется значение переменной s2 с помощью функции sqr() из пакета math.
Затем значение переменной s2 добавляется к значению переменной s1.
После окончания внутреннего цикла вычисляется итоговое значение переменной s с помощью функции sum() из пакета math.
Итоговое значение переменной s записывается в переменную s.
В конце программы выводится на экран значение переменной s.