copy mà đé* đọc kĩ đề. đây mới đúng nè

program nts;
uses crt;
var i,s:integer;
begin
clrscr;
for i:=1 to 99 do
if i mod 2 =1 then s:=s+i;
write('tong=',s);
readln;
end.

program nts;
uses crt;
var a: array[-10000..10000] of integer;
n,i,s:longint;
begin
clrscr;
write('nhap so cac so nguyen:'); readln(n);
s:=1;
for i:=1 to n do
begin
write('nhap so thu ',i,'='); readln(a[i]); s:=s*a[i];
end;
write('tich cac so da nhap la: ',s);
readln;
end.

nếu tích n số đầu tiên thì sẽ khác nhé

program dz;

uses crt;

var a,b,c:integer;

begin

clrscr;

write('moi nhap a=');

readln(a);

write('moi nhap b=');

readln(b);

write('moi nhap c=');

readln(c);

writeln('tong ba so bang',a+b+c):

write('tich ba so bang',a*b*c);

readln;

end.

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