Ответы и объяснения

Лучший Ответ!
2013-11-05T18:55:57+04:00
Program Zadacha;
Const min = 1; max = 99;
Var a, b: Integer;
Begin
a := min;
b := 0;
While a <= max Do
Begin
If a Mod 2 = 1 Then
b := b + a;
a := a + 1;
End;
WriteLn('Сумма всех нечетных чисел от 1 до 99 включительно равна ', b);
ReadLn;
End.