Скласти програму знаходження суми цілих додатних чисел кратних 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.

"солнце" - круг с точкой в центре

"идти" - две ноги

"хлеб" - полукруг

"рот" - сильно вытянутый   полуовал

нам это тоже задовали под буквой а я тож не знаю,а вот под буквой б напишу

program prim;

var i,sum,n,x   : integer;

begin

    write('n = ');

    readln(n);

    x: =2;

    sum: =2;

    i: =1;

    while sum< =n do

    begin

    x: =x+2;

    i: =i+1;

    sum: =sum+x;

end;

    writeln(i,'слагаемых');

end.