Найти количество чисел в интервале от a до b и их

Var
  a, b, i, sum ,k:integer;

begin
  write('Введите a: ');
  readln(a);
  write('Введите b: ');
  readln(b);
  k:=0;
  sum:=0;
  for i:=a to b do begin
  k:=k+1;
  sum:=i+sum;
  end;
  writeln('Сумма чисел, находящихся в спектре от ',a,' до ',b,' = ',sum);
  Write('Их кол-во = ', k);
end.