Составьте программу, вычисляющую значение выражения f= x+2x+3x+...+nx

где x - целое число, n - целое положительное число, вводимые с клавиатуры.

Пояснение

В этой программе будем использовать переменную цикла i как коэффициент для переменной x:

var x:integer;

  y:real;

begin

writeln('введите целое число');

readln(x);

if (x-3)<>0 then

begin

 y:=(x+5)/(x-3);

 writeln ('при x=',x,' y =',y);

end

else

writeln('значение выражения не определено');

end.