Кроссворд на 20 слов с вопросами и ответами

1)вращающийся вал,цилиндр-рол 2)афинянин по нации- грек 3) вагонный гараж-депо 

1. для нахождения нод используем алгоритм евклида. var   a, b, i: integer; begin   write('введите два натуральных числа '); readln(a, b);   while b < > 0 do   begin       a : = a mod b;       i : = b; b : = a; a : = i   end;   writeln('нод этих чисел равен ', a) end. тестовое решение: введите два натуральных числа 3264 1296 нод этих чисел равен 48 2. тут все намного проще, алгоритм очевиден. var   a, i: integer; begin   write('введите натуральное число '); readln(a);   i : = 2;   while (a mod i) < > 0 do i : = i + 1;   writeln('минимальный делитель равен ', i) end. тестовое решение: введите натуральное число 187 минимальный делитель равен 11

A) for i : = 2 to min ( a, b  ) do       if ( a mod i = 0 ) and ( b mod i = 0 ) then         begin           write('нод ( ', a, ' ', b, ' ) =  ', i  );           break;         end; б) for i : = 2 to n do       if ( n mod i = 0 ) then         begin           write('нд ( ', n, ' ) =  ', i  );           break;         end; прошу прощения, но мне уже нужно идти а кто-нибудь другой вряд-ли : (  если что, можете написать мне личное письмо, я на него постараюсь завтра ответить. с уважением.