написать программу, которая вводит натуральное число n и считает сумму чисел от 1 до n

Varn:integer;S:real;BeginS:=0;Write('n = ');ReadLn(n);For n:= 1 to n do    S:=S+n;Write('S = ',S)End.

program sum_n;varn, i, s: integer;beginwrite('n = ');readln(n);s := 0;for i := 1 to n dos := s + i;writeln('s = ', s);end.