Viết chương trình tính tổng S=0+2+4+6+8...+2n .Với n là số nguyên nhập từ bàn phím, sau đó in ra kết quả màn hình giúp mk với mk cần gấp

2 câu trả lời

program oken;

uses crt;

var n,s,i:integer;

begin

write('nhap n: '); readln(n);

for i:=2 to n*2 do if i mod 2=0 then S:=s+i;

writeln('tong: ',s);

readln;

end.  cho mình xin câu trả lời hay nhất 

program baitap;

var S,i: integer;

begin

read(n);

S:=0

for i:=0 to 2n do 

if (i>0) and (i od2=0) then 

S:=S+i;

writeln('S',S);

readln

end.