как в паскале записать сумму чисел от 1 до n

program l27; var n,i,k:integer; a:array[1..30] of integer; begin readln(n); for i:=1 to n do readln(a[i]); for i:=1 to n do k:=a[i]+a[n]; writeln(k); end.

Возможны ошибки.Program prim;Var x, s: integer;Begins:=0For x:= 1 to n do s:=s+xWriteln ('Сумма равна' , s)End.