Нид хелп с Паскалем, ребяты. Не тяну эту хрень вообще ни разу. В общем, нужно сделать...

Question

Нид хелп с Паскалем, ребяты. Не тяну эту хрень вообще ни разу. В общем, нужно сделать программы по данному алгоритму:

Y = Сигма, наверху n=10, внизу i=3, /i/

Answer 1

Помог отметь как лучший ответ!

uses crt;
var k,n,i,p,sum : integer;
function f(n:integer):integer;
begin
f:=(abs(n));
end;
begin
writeln ('vvedite konechnui index') ;
readln(p);
sum:=0;
for k:=1 to p do
sum:=sum+f(k);
writeln(sum);
readln;
end.