Укажите через запятую числа…

Укажите через запятую числа, которые выведет данный фрагмент Паскаль-программы… .w: =1; z: =8; while w<8 dobeginr: =w*z; w: =w+1; z: =z-3; write (r); end; … Числа указывайте через запятую. Например: 2,7,13,22Пробелы не использовать.