Program zadanie;
var i,suma:integer;
begin
	suma:=0;
	for i:=0 to 100 do
	begin
		if
		(i mod 2=0)
		then
		suma:=suma+i;
	end;
	writeln('Suma to: ',suma);
	readln;
end.