Viết chương trình tính tích số chẵn của n số đầu tiên với N nhập từ bàn phím

Câu 1:

uses crt;var n,i,s:integer;begin      clrscr;      s:=0;      write['Nhap n: ']; readln[n];      for i:=1 to n do s:=s+i;      write['Tong: ',s];      readln;

end.

Câu 2:

uses crt;var a:array[1..1000000] of longint;      n,i,s:integer;begin      clrscr;      s:=0;      write['Nhap so luong phan tu: ']; readln[n];      for i:=1 to n do            begin                  write['Nhap phan tu thu ',i,': ']; readln[a[i]];                  s:=s+a[i];            end;      write['Tong: ',s];      readln;

end.

Câu 3:

uses crt;var a:array[1..1000000] of longint;      n,i,d:integer;begin      clrscr;      d:=0;      write['Nhap so luong phan tu: ']; readln[n];      for i:=1 to n do            begin                  write['Nhap phan tu thu ',i,': ']; readln[a[i]];                  if a[i] mod 3=0 then d:=d+1;            end;      write['Co ',d,' so chia het cho 3'];      readln;

end.

Câu 4:

uses crt;var a:array[1..1000000] of real;      min:real;      n,i:integer;begin      clrscr;      write['Nhap so luong phan tu: ']; readln[n];      for i:=1 to n do            begin                  write['Nhap phan tu thu ',i,': ']; readln[a[i]];            end;      min:=a[1];      for i:=2 to n do if a[i]