Определить количество чисел в промежутке от 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.