Question

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

Answer 1

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

Answer 2

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.