x = -10 y = 3
r = x = -10 q = 0
Фраза 'while r >=y do' на русский переводится как 'пока r >= y выполнять'
r = -10, напоминаю
То есть пока -10 >= 3 выполнять... Но -10 не больше и не равно 3, следовательно тело цикла ни разу не выполнится.
Значит, q останется равным 0 и r останется равным -10
Ответ: q = 0 r = -10