Для записи суммы чисел от 1 до n в Паскале можно воспользоваться следующим кодом:

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

Этот код считывает число n, затем с помощью цикла вычисляет сумму чисел от 1 до n и выводит результат на экран.