Bài 37:

program bai_giai;
uses crt;
var n,d,i:longint;
function ktnt(k:longint):boolean;
var r:longint;
begin
    for r:=2 to trunc(sqrt(k)) do
        if k mod r=0 then exit(false);
    exit(true);
end;
BEGIN
    clrscr;
    write('Nhap n: ');  readln(n);
    i:=2; d:=0;
    while d<n do
        begin
            if ktnt(i) then
                begin
                    writeln(i); d:=d+1;
                end;
            if i=2 then i:=i+1 else i:=i+2;
        end;
    readln;
END.

Bài 38:

program bai_giai;
uses crt;
var n:longint;
function max(k:longint):byte;
var a,ln:byte;
begin
    ln:=k mod 10; k:=k div 10;
    while k<>0 do
        begin
            a:=k mod 10;
            if a>ln then ln:=a;
            k:=k div 10;
        end;
    exit(ln);
end;
function min(k:longint):byte;
var a,nn:byte;
begin
    nn:=k mod 10; k:=k div 10;
    while k<>0 do
        begin
            a:=k mod 10;
            if a<nn then nn:=a;
            k:=k div 10;
        end;
    exit(nn);
end;
BEGIN
    clrscr;
    write('Nhap n: ');  readln(n);
    write(max(n),' ',min(n));
    readln;
END.

Bài 39:

program bai_giai;
uses crt;
var n:longint;
procedure xuly(k:longint);
var max,dem,a:byte;
begin
    max:=k mod 10;   dem:=0;
    while k<>0 do
        begin
            a:=k mod 10;
            if a>max then
                begin
                    max:=a; dem:=0;
                end;
            if a=max then dem:=dem+1;
            k:=k div 10;
        end;
    write(max,' ',dem);
end;
BEGIN
    clrscr;
    write('Nhap n: ');  readln(n);
    xuly(n);
    readln;
END.