program aaa;
type iint = 1..100;
var a: iint;
i, s:integer;
begin
readln(a);
s:=0;
for i:=a to 100 do
if odd(i) then
s:=s+i;
writeln(s)
end.
Объяснение:
