Составьте программу вычисления значения выражения для данного натурального числа 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.