program Project10; {$APPTYPE CONSOLE} var a,b,i,N,S:integer; begin S:=0; for i:=10 to 99 do begin a:=i div 10; b:=i mod 10; if (a+b) mod 4=0 then S:=S+i;end; write('Suma ',S); readln; end.