Даны два числа. найти их наибольший общий делитель. (паскаль)

Var n, k, nod: integer; begin         readln(n, k);         if (n > k) then         begin                   nod: =k;         end;                 if (n < k) then         begin                   nod: =n         end;                 if (n = k) then         begin                   nod: =n;         end;         while(true) do         begin                   if (k mod nod < > 0) then nod: =nod-1;                   if (n mod nod < > 0) then nod: =nod-1;                   if (k mod nod = 0) and (n mod nod = 0) then break;         end;                 writeln('наименьший общий делитель: ', nod); end.

2. var a, n, i, sum, x: integer; begin   readln(a, n);   sum: =0;   for i: =1 to n do   begin     read(x);     if (x> a)     then     sum: =sum+x;   end;   writeln('сумма: ', x); end. 3. var begin   readln(n);   pairs: =0;   if (n> 0)   then   read(x);   last: =x;   for i: =2 to n do   begin     read(x);     if (x> -1 and last> -1 or x< 0 and last< 0)     then     inc(pairs);     last: =x;   end;   if (pairs> 1)   then   writeln('yes.');   else   writeln('no.'); end.

#include < stdio.h> #define max 100 void main()   {int mas[max][max], n, m, i, j, k, ok;   scanf("%d%d", & n, & m);   for (i=0; i< n; ++i)     for (j=0; j< m; ++j)     scanf("%d", & mas[i][j]);   for (i=0; i< n; ++i)     for (j=i+1; j< n; ++j)     {ok=1;       for (k=0; k< m; ++k)       if (mas[i][k]==mas[j][k])         {ok=0;         break; }       if (ok)       printf("%d %d\n", i, j); }}