Написать программу d: =d+n при d=1 и притом n изменяется от 10 до 3 с шагом 1, по возможности напишите блок-схему.

Var D := 1;begin  for var N:=10 downto 3 do  begin    D := D + N;      write(D);    writeln;    end;  end.