program hotrotinhoc ;

var i,n : integer ;

begin

write('n='); readln(n);

for i:= 1 to n do

if (i mod 2 = 1) and (i<=n) then write(i);

readln

end.
b)

Program Cuu_Chuong_1;

uses crt;

var  n, i : integer;

begin

clrscr;

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

for i:= 1 to 9 do writeln(n,’ x ‘, i, ‘ = ‘, n*i);

readln

end.