program Project2;
{$APPTYPE CONSOLE}
var N,i,S:integer;
begin
writeln('Vvedit chyslo N');
readln(N);s:=0;
for i:=N to 50 do begin
if i mod 2=0 then
s:=s+i;end;
writeln('Suma chysel S=',S);
readln;
end.