Написать программу которая выводит на экран общие делители числа n и z введённые с клавиатуры (Язык Pascal)

Для решения данной задачи можно применить метод перебора всех возможных делителей чисел n и z, и если делитель найден в обоих числах, то он является общим делителем.

Вот код на языке Pascal, который реализует данное решение:

program common_divisors;

var
  n, z, i, commonDivisor: integer;

begin
  write('Введите число n: ');
  readln(n);
  write('Введите число z: ');
  readln(z);

  writeln('Общие делители чисел ', n, ' и ', z, ':');

  for i := 1 to n do
  begin
    if (n mod i = 0) and (z mod i = 0) then
    begin
      commonDivisor := i;
      write(commonDivisor, ' ');
    end;
  end;
end.

Программа запрашивает у пользователя два числа - n и z. Затем с помощью цикла for перебираются все возможные делители первого числа (от 1 до n), и проверяется, является ли данный делитель также делителем второго числа. Если это так, то делитель является общим для обоих чисел и выводится на экран.

Таким образом, мы получаем все общие делители чисел n и z.