Укажите, сколько раз выполнится тело цикла: M:=5; WHILE M>0 DO M:=M+5;