uses crt;
var a,b,i,t:longint;
function nt(a:longint):boolean;
var i:longint;
  begin
    i:=2;
    while (a>1)and(a mod i<>0) do inc(i);
    nt:=i=a;
  end;
  begin
     clrscr;
     write('a,b= ');readln(a,b);
     write('Cac so nguyen to: ');
     for i:=a to b do
           if nt(i) then write(i,' ');
          writeln;
     for i:=1 to a do if (a mod i=0)and(b mod i=0) then t:=i;
     writeln('UCLN(',a,',',b,')=',t);
     readln
  end.

Program NN;
Uses crt;
Var a,b,i: longint;

Function ngto(a: longint): boolean;
Var i: longint;
Begin
        If a<2 then exit(false);
        For i:=2 to trunc(sqrt(a)) do
                If a mod i = 0 then exit(false);
        exit(true);
End;

Function UCLN(a,b: longint): longint;
Var r: longint;
Begin
        While b<>0 do
        Begin
                r:=b;
                b:=a mod b;
                a:=r;
        End;
        UCLN:=a;
End;

Begin
        Clrscr;
        Write('Nhap a: '); Readln(a);
        Write('Nhap b: '); Readln(b);
        For i:=a to b do
                If ngto(i) then Write(i,' ');
        Writeln;
        Write('UCLN cua ',a,' va ',b,' la: ',UCLN(a,b));
        Readln
End.