Написать программу вычисления суммы целых чисел от 1 до n, запрашиваемого с клавиатуры. Pascal ABC

var  i, n: integer;  sum: longint;beginwrite('n = ');readln(n);for i := 1 to n do sum := sum + i;writeln('Сумма чисел от 1 до ', n , ' = ', sum);end.

var  s,n:integer;begin  Write('Введите n:');  Readln(n);  s:=n+(n*(n-1)) div 2; { сумма арифметической прогрессии }  Writeln('Сумма чисел от 1 до ',n,' равна ',s)end.