Укажите, значение переменной D после выполнения данного фрагмента программы:
D:=13;
WHILE D>0 DO D:=D-3;