lập trình đếm tính tổng các số chia hết cho 3 và 5 trong đoạn [100;200]

Uses crt;
Var s,i,d:integer;
Begin
Clrscr;
S:=0;
D:=0;
For i:=100 to 200 do
If (i mod 3 =0) and (i mod 5 =0) then begin
D:= d+1;
S:= s+i;
End;
Writeln(‘ tong cac so chia het cho 3 va 5 la ‘,s);
Writeln(‘co ‘,d,’ so chia het cho 3 va 5′);
Readln;
End.