program p1;
var
i, sum: integer;
begin
sum := 0;
for i := 0 to 50 do
if odd(i) then
sum := sum + i;
writeln('Summa= ', sum);
readln;
end.
program p1;
var
i, sum: integer;
begin
sum := 0;
for i := 0 to 50 do
if odd(i) then
sum := sum + i;
writeln('Summa= ', sum);
readln;
end.