program in_so_le_nho_hon_hoac_bang_n;
uses crt;
var n, i, s: integer;
begin
clrscr;
textcolor (white);
write ('nhap n: ');  readln (n);
i:=0;
s:=0;
repeat
i:=i+1;
for i:=i to n do
if i mod 2 = 1 then
begin
s:=s+i;
end;
until i = n;
writeln ('tong cua cac so la nho hon hoac bang ',n,' la: ',s);
writeln ('========== HET ==========');
readln;
end.

Program bai1;

uses crt;

var dem,n,i: integer;

begin clrscr;

write('nhap n =');

readln(n);

dem:=0;

for i:= 1 to n do

if i mod 2 = 1 then

begin write(i:3,',');

dem:= dem+1

; if dem mod 15 = 0 then writeln

; end;

readln;