2. Дописать программу Составьте программу (оператор цикла) для нахождения суммы по следующей формуле: S= (x*x+x)/а*x (при х от 3 до 19) Program User; var s:real; x,a:integer, begin Writeln('Введите a'); Readln(a); begin writeln(s); end; end.

Программа должна выглядеть примерно так:

Program SummationFormula;

var
  s: real;
  x, a: integer;

begin
  writeln('Введите a:');
  readln(a);

  for x := 3 to 19 do
  begin
    s := s + (x*x + x) / (a * x);
  end;

  writeln('Сумма по формуле: ', s:0:2);
end.