Viết chương trình tính tổng của N số tự nhiên đầu tiên

giúp mình câu 4 với
----- Nội dung dịch tự động từ ảnh -----
CÂU HỎI ÔN TẠP GIỮA HKII TIN HỌC LỚP 8
Thực hành:
1. Viết chương trình tính tổng của N số tự nhiên đầu tiên
2. Viết chương trình tính tích của N số tự nhiên đầu tiên
3. Viết chương trình xác định số lần xuất hiện các số nguyên chẵn và tính tổng
của của N số tự nhiên đầu tiên.
4. Viết chương trình xác định số lần xuất hiện các số nguyên lẻ và tính tích của
của N số tự nhiên đầu tiên.
Gợi ý câu 6:
program Tim_tong_chan;
uses crt;
var n, i, dem, a, tong: integer;
begin
cirscr,
write(Nhap so N = ); readln(n);
dem := 0; tong := 0;
for i := 1 to n do
if i mod 2 = 0 then
begin
dem := dem + 1;
tong := tong + i;
end;
writeln("So lan xuat hien so chan trong day la: ',dem);
write(Tong cua cac so do la: ",tong);
Activate Wi
Go to Settings
readin
end.
Sửa các dấu màu đỏ sẽ được câu 4