uses crt;

var A, B, i, k, j : byte;

begin

clrscr;

write('Nhap A, B (A < B) = '); readln(A, B);

if A < B then

    begin

        write('Cac so nguyen to : ');

        for i := A to B do

            begin

                j := 2; k := 0;

                while (j < i) and (k = 0) do

                    begin

                        if i mod j = 0 then k := 1;

                        j := j + 1;

                    end;

                if (i > 1) and (k = 0) then write(i,' ');

            end;

        for i := B downto 1 do

            if (A mod i = 0) and (B mod i = 0) then break;

        writeln; write('Uoc chung lon nhat : ', i);

    end;

readln

end.

Code (C++)

#include<iostream>
using namespace std;
void prime(int a, int b){
 int isPrime[b-a+1];
 for (int i = 0; i <= b-a+1; i++) isPrime[i] = true;
 for (int i = 2; i*i <= b; i++)
  for (int j = max(i*i, (a+i-1)/i*i); j <= b; j += i)
   isPrime[j - a] = false;
 if (1 >= a) isPrime[1-a] = false;
 for (int i = a; i <= b; i++)
  if (isPrime[i-a])
   cout << i << " ";
}
int gcd(int a, int b) {
    return b == 0 ? a : gcd(b, a % b);   
}
int main(){
 int a,b;
 cout << "Enter a: ";
 cin >> a;
 cout << "Enter b: ";
 cin >> b;
 cout << "Prime numbers in the range a to b: ";
 prime(a,b);
 cout << endl << "GCD of two numbers a and b: " << gcd(a,b);
 return 0;
}