скласти програму знаходження суми цілих додатних чисел кратних 4 і менше 50

Program Zadacha;Const c = 4; max = 50;Var a, b: Integer;Begina := c;While a < max DoBeginIf a Mod c = 0 Thenb := b + a;a := a + 1;End;WriteLn('Сума чисел, кратних ', c, ' і менше ', max, ' становить ', b);ReadLn;End.