Вычисление суммы,произведение числовых рядов.Не совсем понял, есть объяснение, но очень мутное.

по сути всё должно быть правильно

Если написано "Тестовое решение", значит, уже проверено.

Работает, как часы

Просто у меня паскаль иногда глючит, а всё-же осторожность не помешает

Это правильно))

uses Crt;var  x,y:real;  k:integer;begin  ClrScr;  Write('Введите x: '); Read(x);  y:=0;  for k:=1 to 3 do y:=y+(3*x-k);  Writeln('y=',y);  ReadKey;end.Тестовое решение:Введите x: 10y=84Для проверки можно выполнить ручной счет по нижеследующей формуле.