[qazxcdews]

Найти сумму положительных черных чисел, меньших 50.

[Страдалецъ]

А что делать будете с отрицательно-белыми?

[qazxcdews]

Извиняюсь чётных!

[Страдалецъ]

Код:

Var
  Sum,i: Integer;
begin
 Sum := 0;
 for i := 1 to 49
 do if i mod 2 = 0
    then Inc(Sum,i);
 WriteLn(Sum);
 ReadLn;
end.