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!