Напишите программу, подсчитывающую сумму всех чисел от 1 до N. Pascal

var
n, s, i: longint;

begin

cls;
writeln ( 'Нахождение суммы всех натуральных чисел от 1 до N.' );
write ( 'Введите число N: ' );
readln (N);
s := 0; // Обнуляем изначальное значение суммы.
for i := 1 to n do
s := s + i;
writeln ( 'Сумма первых ', n, ' чисел равна ', s, '.' );

end.

var n, a, b : longint; begin write ('Введите число N: '); readln (N); a := 0; for b := 1 to n do a := a + b; writeln ('Сумма чисел до N: ', a); end.