Найти сумму чисел от 1 до 25 паскаль

спасибо

var sum,k:integer;beginsum:=0;for k:=1 to 25 do sum:=sum+k;writeln(sum);end.

Используем формулу суммы арефм прогрессии:beginwriteln((1 + 25) div 2* 25);end.Или цикл:var i, s: integer;begins := 0;for i := 1 to 25 doinc(s, i);writeln(s);end.