Вычеслить сумму натуральных чисел, начиная от 13 до 25. паскаль.. !

Var a, i: integer;
begin
     for i := 13 to 24 do
     begin
         a := a + i;
         write(i, ' + ');
     end;
     write(' 25 = ');
     writeln(a + 25);
end.

Удачи=)

Var i:byte
n:integer;

begin
n:=0;
for i:=13 to 25 do
 n:=n+i;

writeln('сумма от 13 до 25 = ', n);
end.