Dùng vòng lặp for ... do viết chương trình pascal in ra và tính tổng các số lẻ nhỏ hơn hoặc bằng n? Với n là số tự nhiên nhập từ bàn phím in ra kết quả màn hình
program tinhtong; uses crt; var tong,i,n : integer; begin Read(n); for i:=1 to n do begin if i mod 2 = 1 then tong := tong + i; end; Writeln(tong); end.