uses crt;

var i,j:integer;

BEGIN

clrscr;

i:=1;

for j:=1 to 20 do i:=i*j

writeln('tich la,i);

readln;

END.

uses crt;

var n,i,k,j:integer;

BEGIN

clrscr;

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

for i:=1 to n do

begin

j:=0;

for k:=1 to i do j:=j+1;

if j=2 then

witeln('cac snt từ 1 den n la ',i);

end;

readln;

END.

chưa chắc đã đúng đâu

em mới hok lớp 6 thử = máy tính có j sai giúp em sửa nha