uses crt;
var sum,i:integer;
begin
sum:=0;
for i:=101 to 301 do begin
if i mod 2=0 then sum:=sum+i;
end;
writeln('Cумма нечётных элементов= ',sum);
end.
uses crt;
var sum,i:integer;
begin
sum:=0;
for i:=101 to 301 do begin
if i mod 2=0 then sum:=sum+i;
end;
writeln('Cумма нечётных элементов= ',sum);
end.