Viết chương trình tính N số nguyên.tính tích các số chẵn Viết chương trình tính N số nguyên .Tính tổng các số lẻ Giúp mk vs mn

program h247;

var i, n, tich, tong: integer;

begin

write('Nhap n '); readln(n);

tich:=1;

tong:=0;

for i:=1 to n do

begin

if i mod 2=0 then tich:=tich*i;

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

end;

writeln('Tich cac so chan la ',tich);

writeln('Tong cac so le la ',tong);

end.

uses crt;
var i,n,tich,tong:integer;
begin
   write('Nhap n '); readln(n);
   tich:=1; tong:=0;
   for i:=1 to n do
   begin
      if i mod 2 = 0 then tich:=tich*i;
      if i mod 2 <> 0 then tong:=tong+i;
   end;
   writeln('Tich cac so chan la: ',tich);
   writeln('Tong cac so le la: ',tong);
   readln
end.