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

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 раза будет повторён цикл

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

b := 1

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

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

явно, что это 5 и 3

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