9. Напишите программу вычисления наибольшего общего делителя двух целых чисел: а) используйте оператор repeat; б) используйте оператор while.

### 9. Программа для вычисления НОД (наибольшего общего делителя)\n\nДля вычисления НОД двух чисел удобно использовать алгоритм Евклида. В языке Pascal это выглядит так:\n\n**а) С использованием repeat:**\n```pascal\nvar a, b, r: integer;\nbegin\n read(a, b);\n repeat\n r := a mod b;\n a := b;\n b := r;\n until b = 0;\n writeln('НОД = ', a);\nend.\n```\n\n**б) С использованием while:**\n```pascal\nvar a, b, r: integer;\nbegin\n read(a, b);\n while b <> 0 do\n begin\n r := a mod b;\n a := b;\n b := r;\n end;\n writeln('НОД = ', a);\nend.\n```\n\n---### 10. Количество выполнений цикла\nКоличество итераций цикла `for i := A to B do` рассчитывается по формуле: $B - A + 1$.\n\nа) $15 - 0 + 1 = 16$ раз.\nб) $15 - 10 + 1 = 6$ раз.\nв) $1 - (-1) + 1 = 3$ раза (значения итератора: -1, 0, 1).\nг) $10 - 10 + 1 = 1$ раз.\nд) При $k = 5$ диапазон цикла: `for i := 4 to 6 do`. $6 - 4 + 1 = 3$ раза (значения итератора: 4, 5, 6).\n\n---### 11. Вывод имени и фамилии 10 раз\n```pascal\nvar i: integer;\nbegin\n for i := 1 to 10 do\n writeln('Имя Фамилия');\nend.\n```