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

Var S,n:integer;
Begin
S:=0;
For n:= 1 to 10 do
    S:=S+5*n-1;
WriteLn('S = ',S);
End.

Результат работы программы:

S = 265