Bài tập tự luyên: 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.(a=4;b=20)

Program BTH;
uses crt;
var n,k,i,tong:longint;
Begin
        clrscr;
        write('Nhap a: '); readln(n);
        write('Nhap b: '); readln(k);
        for i:=n to k do
        if i mod 2=0 then tong:=tong+i;
        writeln('Tong cac so chan khong lon hon ',k,' va nho hon ',n,' : ',tong);
        readln;
end.

program oken;

uses crt;

var a,b,i,tong:integer;

begin

clrscr;

write('nhap a: '); readln(a);

write('nhap b: '); readln(b);

if a<b then 

      for i:=a to b do 

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

writeln('tong cua tat ca cac so chan khong lon hon b va nho hon a: ',tong);

readln;

end.