Program noname;                                     

Var e,d,S,x:integer;                                   
Begin

readln (a,b);                                              //ввод  чисел начального и конечного значения 

                                                                                                            заданного промежутка(шаг 1)

S:=0;                                                          // обнуление суммы

For x:=a to b do                                     //НАЧАЛЬНОЕ И КОНЕЧНОЕ ЗНАЧЕНИЕ ЦИКЛА (шаг 2) 

 

If (x mod 2=0) then                                // определение четности числа (шаг 3) 
                        S:=S+x;                          // нахождение суммы (шаг 4)

 

writeln ('S=',s)                                        // вывод суммы   (шаг 5)         

 End.