1 

 var i,n:byte;

 begin

 readln(n);

for i:=1 to n do

 write(i,' ');

readln;

end.

2

 var i,n:byte;

 begin

 readln(n);

 for i:=1 to n do 

 writeln(i);

readln;

end.

3 a

 var i,n:integer;

       s:longint;

begin

 readln(n);

s:=0;

for i:=1 to n do 

 s:=s+i;

writeln(s);

readln;

end.

b

var i,n:integer

   s:longint;

begin

 readln(n);s:=0;

for i:=1 to n div 2 do

  s:=s+(i*2);

writeln(s);

readln;

end.

c

 var i,n:integer;

 s:longint;

begin

 readln(n);

s:=0;

for i:=1 to n div 2+1 do 

 s:=s+(i*2+1);

writeln(s);

readln;

end.

d:

var i,n:integer;

     s:real;

begin

 readln(N);

s:=0;

for i:=1 to n div 2+1 do

 s:=s+1/(i*2);

writeln(s);

readln;

end.

e

 var i,n:integer;

 s:real;

beign

 readln(n);s:=0;

for i:=1 to n div 2 do

 s:=s+1/(i*2);

writeln(s);

readln;

end.

f

var i:integer; s:real;

begin

 s:=0;

 for i:=1 to 15 do

 s:=s+1/i;

writeln(s);

readln;

end.

4

var i:integer;

begin

 writeln('bang cuu chuong 9');

for i:=1 to 10 do

 writeln('9 x ',i,' = ',i*9);

readln;

end.

5

var n,m,i,j:integer;

begin

 writeln('nhap lan luot chieu dai va chieu rong');readln(n,m);

for i:=1 to m do begin

 for j:=1 to n do

 write('*');

writeln;

end;

readln;

6

end.

var a,b,a1,b1:integer;

begin

 writeln('nhap lan luot 2 so a va b');readln(n);

 a1:=a;b1:=b;

while a1<>b1 do

 if a1>b1 then a1:=a1-b1 else b1:=b1-a1;

writeln('uoc chung lon nhat:',a1,'; boi chung nho nhat:',a*b/b1);

readln;

end.

7

var n:integer;

begin

 readln(N);

if odd(n) then write('so le') else write('so chan');

readln;

end.

8

var i,t,n,j:integer;

begin

 readln(N);

for j:=1 to n-1 do begin

 t:=0;

for i:=1 to trunc(sqrt(j)) do 

 if j mod i=0 then t:=t+j;

if j=t then write(j,' la so hoan hao');

end;

readln;

end.

9

var i,n:integer;

      b:boolean;

begin

 readln(n);

b:=true;

for i:=2 to trunc(sqrt(n)) do

 if n mod i=0 then begin b:=false; break; end;

if b then write('so nguyen to') else write('khong phai so nguyen so');

readln;

end.