1.Nhập vào 2 số nguyên a và b (giả sử a<b) tính và đưa ra màn hình tổng của tất cả các số chẵn không lớn hơn b và không nhỏ hơn a 2.Nhập vào 2 số nguyên a và b ( giả sử a<b) tính và đưa ra màn hình tổng của tất cả các số không chẵn không lớn hơn b và không nhỏ hơn a 3.Nhập vào 2 số nguyên a và b (giả sử a<b) tính và đưa ra màn hình tổng của tất cả các số là bội của 4 không lớn hơn b và không nhỏ hơn a Giúp mình với, please

1 

uses crt;

var a,b,tong:integer;

begin

clrscr;

tong:=0;

write('nhap a, b'); readln(a,b);

for i:=a to b do if i mod 2=0 then tong:=tong+i;

writeln(tong);

readln

end.

2

uses crt;

var a,b,tong:integer;

begin

clrscr;

tong:=0;

write('nhap a, b'); readln(a,b);

for i:=a to b do if i mod 2<>0 then tong:=tong+i;

writeln(tong);

readln

end.

3 

uses crt;

var a,b,tong:integer;

begin

clrscr;

tong:=0;

write('nhap a, b'); readln(a,b);

for i:=a to b do if i mod 4=0 then tong:=tong+i;

writeln(tong);

readln

end.