Program NhatNgu;
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 a div 2 do
                If a mod i = 0 then exit(false);
        exit(true);
End;

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

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

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.