Sử dụng vòng lập for-.. do câu lệnh điều kiện if- Then viết chương trình tính tổng các số lẻ từ 10 đến 100

uses crt;

var i,s: integer;

begin

clrscr;

for i:=10 to 100 do

if i mod 2<>0 then s:=s+i;

writeln (‘tong la: ‘,s);

readln;

end.