Вывести сумму первых 25 натуральных чисел

// PascalABC.NET 3.1, сборка 1214 от 09.04.2016
begin
  Print(Range(1,25).Sum)
end.

Результат:
325

PascalABC

var: k,s,i: integer;
begin
k:=1;
s:=0;
for i:=1 to 25 do 
  begin
   s:=s+k;
   k:=k+1;
  end;
writeln(s);
end.