Составьте программу нахождения наибольшего общего делителя трёх чисел, используя следующую формулу: нод(a, b,c)=нод(нод(a, b),c). нужно на паскале

var  a, b, c: integer; begin  write('a = '); readln(a);   write('b = '); readln(b);   write('c = '); readln(c);   write('нод(', a, ', ', b, ', ', c, ') = ');   while (a < > 0) and (b < > 0) do      if a > = b then          a : = a mod b      else          b : = b mod a;   a : = a + b;   while (c < > 0) and (a < > 0) do      if a > = c then          a : = a mod c      else          c : = c mod a;   writeln(a + c); end.

program xxx; var i, j, k, n, p, s : integer;       a : array [1..20] of integer; begin  write ('введите количество инверсий -');   readln(k);   write ('введите количество ламп -');   readln(n);   for i: =1 to n do      a[i]: =0;   for i: =1 to k do      begin          write ('введите инверсию p-');           readln(p);           j: =p;           while j< =n do              begin                  if a[j]=0 then a[j]: =1 else a[j]: =0;                   j: =j+p              end      end;   s: =0;   for i: =1 to n do      if a[i]=1 then s: =s+1;   write ('ламп горит -', s);   readlnend.

2^i=n, n = 16

2^i=16

i=4 бит

50 * 4 = 200 бит

200: 8 = 25 байт