14
VAR N,M,I,S:LONGINT;
F:TEXT;
BEGIN
WRITELN('NHAP LAN LUOT 2 SO M VA N');
READLN(M,N);
S:=0;
FOR I:=M TO N DO
IF NOT(ODD(I)) THEN S:=S+I;
ASSIGN(F,'KETQUA.TXT');RESET(F);
WRITE(F,S);
CLOSE(F);
END.
15
FUNCTION XET(N:LONGINT):BOOLEAN;
BEGIN
XET:=I MOD 2=0;
END;