помогите пожалуйста супер срочно

program summa

var n,a,s,i:integer;

begin

read(n);

s:=0;

for i:=1 to n do

begin

read(a);

if (a mod 10 = 3) then

s:=s+a;

end;

Writeln(s);

end.