intreg a, b, r, i, n
citeste a;
citeste b;
prim = 1;
r=a%b;
cat timp (r!=0)
{ a=b;
b=r;
r=a%b;
}
daca (r==0) atunci prim=0;
daca (a>b)
{atunci n=b;
altfel n=a;
daca (prim=0) atunci
pentru (i=2; i<=n/2; i=i+2)
{
daca (a%i==0) si (b%i==0)
{ atunci scrie i, " " ;
altfel scrie "numerele sunt prime intre ele"}
}
