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

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: 10
y=84

Для проверки можно выполнить ручной счет по нижеследующей формуле.
$\dislpaystyle y=\Sigma_{k=1}^3(3x-k)=\Sigma_{k=1}^3(3x)+\Sigma_{k=1}^3(-k)=3kx-\Sigma_{k=1}^3k= \\ 9x- \frac{1+3}{2}\times3 =9x-6$