вторник, 13 января 2026 г.

 var i, pr :integer;

begin
pr:=0;
for i:=1 to 100 do if i mod 2 = 1 then
 pr:=pr+i;
writeln('сумма = ',pr);
end.