giúp mình với Viết chương trình tính tổng và tích các số tự nhiên lẻ từ 1 đến 100

Program oken;
uses crt;
var tich:real;

     i,tong:integer;
Begin
 clrscr;
 tich:=1;

 for i:=1 to 100 do
       if i mod 2=1 then
        begin
                tich:=tich*i;
                tong:=tong+i;
        end;
 writeln('Tong cac so tu nhien le tu 1 den 100: ',tong);
 writeln('Tich cac so tu nhien le tu 1 den 100: ',tich:0:0);

 readln;
end.

Cho mình câu trả lời hay nhất nha 

Program BTH;
uses Crt;
var s,t:real;
n,i:byte;
Begin
        clrscr;
        s:=1;
        For i:=1 to 100 do
        If i mod 2=1 then
        Begin
                s:=s*i;
                t:=t+i;
        end;
        writeln('Tong day so tren la: ',t:0:0);
        writeln('Tich day so tren la: ',s:0:0);
        readln;
end.