program Tin_hoc;

uses crt;

var i,n,tong,k:integer;

begin

clrscr;

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

tong:=0;

write('Cac so tu 1 den n la: ');

for i:= 1 to n do

begin

write(i,'  ');

tong:=tong+i

end;

writeln;

writeln('Tong cua cac so tu 1 den n la: ',tong);

write('Cac so le tu 1 den n la: ')

for i:= 1 to n do if i mod 2 = 1 then write(i,'  ');

writeln;

k:=0;

for i:= 1 to n do if i mod 5 = 0 then k:=k+1;

writeln('Co ',k,' so chia het cho 5 tu 1 den n');

readln;

end.

Nhớ cho mik câu tlhn nha

program ct;

uses crt;

var n,i,d:integer;

      S,Sl:longint;

begin clrscr;

   write('Nhap so nguyen duong n: '); readln(n);

     S:=0; Sl:=0;

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

   for i:=1 to n do

     begin

        write(i:3);

        S:=S+i;

     end;

   writeln('Tong cac so tu 1 den ',n,' la: ',S);

   write('Cac so le tu 1 den ',n,' la: '); 

   for i:=1 to n do

     if i mod 2=1 then

       begin

          write(i:3);

          Sl:=Sl+i;

       end;

   writeln('Tong cac so le tu 1 den ',n,' la: ',Sl);

   for i:=1 to n do

     if i mod 5=0 then inc(d);

   writeln('Tu 1 den ',n,' co ',d,' so chia het cho 5');

readln;

end.

Học tốt!