viết chuong trình tổng sau S=2+4+6+-.+20 Sn được nhập từ bàn phím

program phuongt;

uses crt;

  var s, i: integer;

begin

             clrscr;

             s:=0;

             for i:=2 to 20 do if i mod 2 = 0 then s:=s+i;

             write(‘S = ‘, s);

             readln

end.