Viết chương trình tính tổng các số chia hết cho 2 trong phạm vi từ 66 đến 99. Thông báo kết quả ra màn hình?

program phuongt;

uses crt;

  var s, i: integer;

begin

           clrscr;

           s:=0;

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

           write(‘Tong = ‘, s);

           readln

end.