Решение задачи Proc 46

#include <stdio.h>

int nod2(int a ,int b){
    while ((a!=0)&&(b!=0)){
        if (a>b) a%= b;
        else b%=a;
    }
    return a+b;
}
 
int main(void)
{
    int a,b,c,d;
    printf("A:");
    scanf("%i", &a);
    printf("B:");
    scanf("%i", &b);
    printf("C:");
    scanf("%i", &c);
    printf("D:");
    scanf("%i", &d);
    printf("NOD2(A,B): %i\n",nod2(a,b));
    printf("NOD2(A,C): %i\n",nod2(a,c));
    printf("NOD2(A,D): %i\n",nod2(a,d));
    return 0;
}

import random
import math

def NOD2(A,B):
    while B != 0:
        A,B = B,A%B
    return A

for i in range(0,4):
    A = random.randrange(1,1000)
    B = random.randrange(1,1000)
    print(A,";",B,";",NOD2(A,B))
									

program Proc46;
 
Function NOD2(A,B:Integer):Integer;
begin
   while (A<>0) and (B<>0) do
   begin
    if a>b then A:=(a mod b)
    else B:=(B mod A);
   end;
   NOD2:=A+B;
end;
 
var
  A, B, C, D: integer;
 
begin
   Write('A :');
   Readln(A);
   Write('B :');
   Readln(B);
   Write('C :');
   Readln(C);
   Write('D :');
   Readln(D);
   Writeln(NOD2(A,B));
   Writeln(NOD2(A,C));
   Writeln(NOD2(A,D));
end.