Viết chương trình tính tổng các STN chẵn từ 1 đến N (với N được nhập từ bàn phím)

program tinhtong;

uses crt;

var n,i:integer;

      t:longint;

begin

clrscr;

write(‘Nhap n: ‘);   readln(n);

t:=0;

for i:=1 to n do

 if i mod 2=0 then t:=t+i;

write(‘Tong cac so le tu 1 den ‘,n,’ la: ‘,t);

readln

end.