Даны два целых числа A и B (A<B).Найти и вывести все отрицательные числа,их сумму и их количество от A до B включительно.Записать код и блок схему(Pascal)

var a,b,sum,i,k : integer;beginreadln(a);readln(b);k:= 0;sum := 0;i := 0;For i := a to b do beginsum = sum + i;write(i, ' ')k = k + 1end;writeln('Сумма = ', sum);written('Количество = ', k);//Часть твоего ответа, это только код.