Составьте программу вычисления значения выражения для данного натурального числа N: 4+8+12+...+4*N.

program znachenie_funkcii;

var n, i, k, a: integer;

begin

writeln(\'Введите число n\');

readln(n);

writeln(\'Вычисляем\');

for i:=1 to n do begin

k := k + 4;

a := a + k;

end;

writeln(\'Искомым значением функции f(n) = 4+8+12+...+4*N является число \', a);

end.