var n1,n2,n3,n4:integer;

Function Summa(left:longint; right:longint):longint;
var i:integer;
Begin
if Left > Right then Begin Left+=Right; Right-=Left; Right*=-1; Left-=Right; end;
for i:=left to right do if not Odd(i) then Summa+=i;
end;

Begin
Write('Введите числа N1,N2,N3 и N4 (через пробел): '); Readln(N1,N2,N3,N4);
Writeln('Ответ: сумма четных чисел от '+N1+' до '+N2+': ',Summa(N1,N2));
Writeln('Ответ: сумма четных чисел от '+N3+' до '+N4+': ',Summa(N3,N4));
Writeln('Ответ: сумма четных чисел от '+N1+' до '+N2+' и от '+N3+' до '+N4+': ',Summa(N1,N2)+Summa(N3,N4));
end.