Составить программу на паскль: даны 2 целых числа а и в найту семму всех натуральных чисел от а до в включительно.

program raf105;

var

  a,b,sum,i: integer;

begin

  write('a = ');

  readln(a);

  write('b = ');

  readln(b);

  for i: =a to b do

    sum: = sum+i;

  writeln('сумма всех чисел от ',a,' до ',b,' = ',sum);

end.