Помогите решить два задания по информатике, заранее, спасибо!

2. Ответ: 36

n := 0

n при каждом цикле увеличивается на 5 (n := n + 5)

в ответе выводит n равное 55 (write (n))

55 / 5 = 11 раз будет повторён цикл

11 - 1 = 10 раз будет цикл будет повторён до того как после повторения в 11 раз нарушит условие и прекратится

365 div 10 = 36

3. Ответ: 35

a := 0

в ответе печатает сначала 2 (writeln (a))

a при каждом цикле увеличивается на 1 (a := a + 1)

2 / 1 = 2 раза будет повторён цикл

т.к. цикл работает пока x>0, то значит x двузначное число

b := 1

каждый цикл b умножается на последнюю цифру числа x

т.к. х двузначное число, а в ответе выводит b равное 15 (write (b)), то при умножении двух чисел мы получаем 15

очевидно, что это 5 и 3

наименьшее двузначное число из этих цифр 35