var
i, k: integer;
begin
k := 0;
for i:=15 to 100 do if i mod 2 = 0 then k:=k+i;
write(k);
end.
Range(15, 100).Where(el -> el.IsEven).Sum.Println;
var
i, k: integer;
begin
k := 0;
for i:=15 to 100 do if i mod 2 = 0 then k:=k+i;
write(k);
end.
begin
Range(15, 100).Where(el -> el.IsEven).Sum.Println;
end.