К каждой задаче подберите программный код, который явлется ее решением

• Объекты 1
  • read\(M,N\);
    while N<>M do
    begin
    if M>N   then M:=M-N
    else N:=N-M
    end;
    write\(M\);
  • x := 100;
    while x < 999 do
    begin
    writeln\(x:5\);
    x := x + 20;
    end;
  • x := 2;
    for  i := 1 to 16 do
    begin
    writeln\(i:2, x:5\);
    x :=x * 2;
    end;
  • Read \(n\);
    k := 0;
    for  i:=1 to n do
    begin
    Read \(x\);       
    if x mod 2 <> 0 then   k:= k + 1;
    end;
    writeln\(k\);
• Объекты 2
  • Найти НОД \(M, N\)
  • Вывод всех трехзначных чисел, кратных 20
  • Вывод 16 первых степеней двойки
  • Сколько нечетных среди n введенных