Найти результат вычисления арифметического выражения: y=(c-d), где d=2 c ∈ [-5; 6] с шагом =1. найти сумму вычисленных элементов и количество отрицательных. нужно написать программу и сделать блок схему(по возможности)

//Pascal
var
  y, c, d, sum, neg: real;
begin
  d := 2;
  c := -5;
  while c <= 6 do
  begin
    y := c - d;
    if y < 0 then
      neg := neg + 1;
    sum := sum + y;
    writeln(y:6:2,c:6:2);
    c := c + 1;
  end;
  writeln('Сумма = ', sum, ' Отрицацельных = ', neg);
end.