uses crt; var i,s,n:integer; begin clrscr; write('Nhap n: '); readln(n); for i:=1 to n do if (i mod 2 = 0) and (i mod 4 = 0) then s:=s+i; write('Tong chia het cho 2 va 4 la: ',s); readln end.
program oken; uses crt; var n,i,s:longint; begin clrscr; write('Nhap 1 so bat ky: '); readln(n); s:=0; for i:=1 to n do if (i mod 2=0) and (i mod 4=0) then s:=s+i; writeln('Tong cac chia het 2 va 4 tu 1 den ',n,': ',s); readln; end.