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