Вот два простых способа на Паскале.

1) Через цикл (классика)

pascal
Копировать код
program Sum1to25;
var
  i, s: integer;
begin
  s := 0;
  for i := 1 to 25 do
    s := s + i;
  writeln('Сумма от 1 до 25 = ', s);  { должно вывести 325 }
end.

2) По формуле суммы арифметической прогрессии

Сумма 1..n = n*(n+1)/2. Для n = 25 получаем 25*26/2 = 325.

pascal
Копировать код
program Sum1to25Formula;
var
  n, s: integer;
begin
  n := 25;
  s := n * (n + 1) div 2;   { 25 * 26 div 2 = 325 }
  writeln('Сумма от 1 до 25 = ', s);
end.

Оба варианта корректно выводят 325; формульный — короче и работает за константное время.