Нид хелп с паскалем, . не тяну эту хрень вообще ни разу. в общем, нужно сделать программы по данному алгоритму: y = сигма, наверху n=10, внизу i=3, /i/

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

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.