Составить программу для нахождения наибольшего общего делителя четырех натуральных чисел с++

Var x,y: real;         begin    writeln('x=');           readln(x);     writeln('y=');       readln(y);       if (x< 0) and (y< 0)   then writeln (abs(x), ' ',abs(y));         if (x< 0) and (y> 0) or (x> 0)  and (y< 0)   then writeln(2*x,' ', 2*y);   if (x> 0) and (y=0) or (x=0) and (y> 0) or (x> 0) and (y> 0) then writeln( sqrt(x),' ',sqrt(y));     readln; end.

Const   n=20; var   a,b: array[1..n] of integer;   i,k,s: integer; begin   randomize;   writeln('массив a');   for i: =1 to n do   begin       a[i]: =random(50)+1;       write(a[i]: 3)   end;   s: =0;   writeln(#13#10,'массив b');   for i: =1 to n do   begin       b[i]: =random(2);       write(b[i]: 3);       if b[i]=1 then s+=a[i]   end;   i: =1;   while (b[i]=0) and (i< =n) do inc(i);   if i> n then k: =0 else k: =i;   writeln(#13#10,'k=',k,', s=',s) end.   тестовое решение: массив a   22 50 34 22 19  1 36  5 23 30 27 24 48 22 24 27 14 14 39  3 массив b   0  1  0  1  0  0  1  1  1  1  0  1  1  1  0  1  1  1  0  1 k=2, s=318