var
_sum, i : integer;
begin
_sum := 0;
i := 2;
while (i <= 100) do
_sum := _sum + i;
i := i + 2;
end;
writeln(_sum);
end.
var
_sum, i : integer;
begin
_sum := 0;
i := 2;
while (i <= 100) do
begin
_sum := _sum + i;
i := i + 2;
end;
writeln(_sum);
end.