bài 1: uses crt;
var a,b: integer;
begin
clrscr;
write('Nhap a: '); readln(a);
write('Nhap b: '); readln(b);
while a<>b do
if a>b then a:=a-b else b:=b-a;
writeln('UCLN: ',a);
readln;
end.

bài 2: 

uses crt;
var n,d,e: integer;
{----Ham Kiem Tra Nguyen To----}
 snt: boolean;
function ktnt(a:integer): boolean;
var i: integer;
kt: boolean;
begin
kt:= true;
if a<=1 then kt:=false;
 for i:=2 to trunc(sqrt(a)) do
 if (a mod i = 0) then kt:=false;
  ktnt:=kt; end;
  {---Chuong Trinh Chinh---}
  begin
clrscr;
write('Nhap n: '); readln(n);
for e:=1 to n do
 if ktnt(e) then begin
  d:=d+1;
  write(e,' '); end;
writeln;
writeln('Co ',d,' so');
readln;
end.

đã test mong được vote!

Câu 2:
Program NTO;
Uses crt;
Var n,i,count: longint;

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

Begin
        Clrscr;
        Write('Nhap n: '); Readln(n);
        i:=1; count:=0;
        While count<=n do
        Begin
                inc(i);
                If is_Prime(i) then
                Begin
                        Write(i,' ');
                        inc(count);
                End;
        End;
        Readln
End.