program repeater;
var n,s,i:Integer;
begin
n := 10;
s := 0;
i := 0;
repeat
s := s + i;
i := i + 2;
until i > n;
writeln(s);
end.
