Câu 1: 

var n,t,d,i: longint;
begin
    writeln('Nhap so tu nhien n: ');
    readln(n);
    for i:=1 to n do if (i mod 2 = 1) then 
    begin
        t:=t+i;
        inc(d);
    end;
    writeln('Tong cac so le tu 1 toi n la: ',t);
    writeln('So cac so le tu 1 toi n la: ',d);
end.
Câu 2:

uses crt;
var i,n,temp,temp1,t,d,z: byte; kt: boolean;
begin
        clrscr;
        write('Nhap so n: ');
        readln(n);
        t:=0; d:=0;
        for i:=2 to n do
        begin
                kt:=true;
                temp1:=trunc(sqrt(i));
                for z:=2 to temp1 do
                    if (i mod z = 0) then 
                    begin
                        kt:=false;
                        break;
                    end;
                if (kt) then 
                begin
                    inc(d);
                    t:=t+i;
                end;
        end;
        writeln('Tong cac so nguyen to tu 1 toi n la: ',t);
        writeln('So cac so nguyen to tu 1 toi n la: ',d);
        readln;
end.

$\text{Câu 1:}$

program Cau_1;

uses crt;

var n,i,d: integer;

Begin

         clrscr;

         write('Nhap n: '); readln(n);

         for i:=1 to n do

              if i mod 2<>0 then d:=d+1;

         write('Co ',d,' so le');

         readln

End.

$\text{Câu 2:}$

program Cau_2;

uses crt;

var n,i,j,d,T: integer;

Begin

         clrscr;

         write('Nhap n: '); readln(n);

         write('Cac so nguyen to tu 1 den ',n,': ');

         for i:=1 to n do

         begin

                  d:=0;

                  for j:=1 to i do

                  if i mod j=0 then d:=d+1;

                  if d=2 then

                  begin

                           write(i,'  ');

                           T:=T+i;

                  end;

         writeln;

         write('Tong cac so nguyen to = ',T);

         readln

End.