написать программу определяющую сумму первых 10 членов последовательности, an=5n-1

Var S,n:integer;BeginS:=0;For n:= 1 to 10 do    S:=S+5*n-1;WriteLn('S = ',S);End.Результат работы программы:S = 265