ПОМОГИТЕ! ИНФОРМАТИКА! Найдите сумму чисел от 1 до 50

Question

ПОМОГИТЕ! ИНФОРМАТИКА!
Найдите сумму чисел от 1 до 50

Answer 1

Var
    i, s: integer;

begin
    for i := 1 to 50 do
        s := s + i;
    writeln('s = ', s);
end.

Answer 2

N(N+1)/2   50(50+1)/2     50(51)/2 =1275