Viết chương trình tính và in kết quả ra màn hình tính tổng sau: S = 1+3+5+7+-.+99 Giúp vs ạ em đang gấp????????????????????

program tong_S;

uses crt;

var S,i:integer;

begin

       clrscr;

       S:=0;

       for i:=1 to 99 do

              if i mod 2=1 then S:=S+i;

       write(‘S= ‘,s);

       readln;

end.