tính s bằng 2+4+6+8+10 với n là số tự nhiên xuất ra màn hình giá trị S

uses crt;
var i,n,s:integer;
begin
      clrscr;
      s:=0;
      write(‘Nhap n: ‘); readln(n);
      for i:=1 to n do if i mod 2=0 then s:=s+i;
      write(s);
      readln;
end.