Записати програму для знаходження суми 10 натуральних чисел

Program Zadacha;

Const c = 4; max = 50;

Var a, b: Integer;

Begin

a := c;

While a < max Do

Begin

If a Mod c = 0 Then

b := b + a;

a := a + 1;

End;

WriteLn('Сума чисел, кратних ', c, ' і менше ', max, ' становить ', b);

ReadLn;

End.