100% như yêu cầu của bạn

uses crt;var n,i,s:integer;    a:array[1..10000] of integer;begin  clrscr;  write('nhap so ga can ban: ');  readln(n);  s:=0;  for i:=1 to n do  begin    write('so ki moi con ga thu ',i,' ');    readln(a[i]);    if a[i]>3 then s:=s+50000    else s:=s+40000;  end;  write('tong ba lan thu duoc: ',s);  readln;end.  

bạn chưa đọc kỉ đề bài bài một nhỉ "các số tự nhiên nhỏ hơn bằng 5"

nên kết quả của bạn chưa đúng lắm 

sửa: "for i:=1 to 5 do" mình nghĩ như thế thì mới đúng

mình mong bạn sẽ sửa chửa kiệp thời và rút kinh nghiệm đọc kỉ đề hơn trước khi làm bài

"chúc bạn học tốt"

bạn xuống đây nếu không hiểu

câu 1:

uses crt;

var p,i:integer;

begin

clrscr;

p:=1;i:=1;while i<=5 do

begin

p:=p*i;i:=i+1;

end;

write(p);

readln;

end. 

bai 2:

uses crt;var p,i:integer;begin    clrscr;    p:=1; i:=0;    while i <=10 do    begin

i:=i+1;        if (i mod 2<>0) then p:=p*i;    end;    write(p);    readln;end. bai 3:

uses crt;var n,i,p:integer;begin     clrscr;     write('nhap n: ');     readln(n);     i:=1;     p:=1;     while i<=n do     begin       if i mod 2=0 then p:=p*i;       i:=i+1;     end;     write(p);     readln;end.