Программа на языке Pascal, которая считает сумму всех чисел от 1 до N, где N вводится пользователем:

program SumCalculation;
var
N, sum, i: integer;
begin
sum := 0;
write('Введите число N: ');
readln(N);
for i := 1 to N do
begin
sum := sum + i;
end;
writeln('Сумма всех чисел от 1 до ', N, ' равна ', sum);
end.