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

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.

хотелось бы напомнить, что с=12, f=15, а=10.

имеем:

20с7f_16 = 2·16⁴ + 0·16³ + 12·16² + 7·16¹ + 15·16⁰ = 2·65536 + 12·256 + 7·16 + 15 = 131072 + 3072 + 112 + 15 = 134271_10(f3ao6/4)_16 = (15·16⁴ + 3·16³ + 10·16² + 0·16¹ + 6·16⁰)/4 = (15·65536 + 3·4096 + 10·256 + 6)/4 = (983040 + 12288 + 2560 + 6)/4 = 997894/4 = 249473,5 _10

shift+ ctrl, эти клавиши шифт и контрл расположены в 2 сторонах клавиатуры, слево и справа, имеют специфические названия левый и правый шифт и контрл, особенности заключаются в том что возможна а компьютетре или ноутбуке есть возможность переключения языков шифт и альт, 

 

название клавиши ереключения регистров capslock , так же есть возможность зажатой левой шифт и любая буква