Найдите сумму 4+9++м^2 удвоив чётные слагаемыепаскаль через while doтема - циклические алгоритмы

Var a,b,c: longint; beginwhile a< > 0 dobeginread (a); if (a mod 2) thena: =a*2; c: =c+a; end; write(c); end.