Для тих, хто вивчає Pascal

Завдання. Знайти суму цілих парних чисел від N до M. Під час вирішення використати цикл                       while..do.