用户从键盘上任意输入10个整数,程序输出其中能够被5整除的数之和.如果没有能够被5整除的数,则输出

var a:array[0..20]of longint;i,j,k,n,t:longint; b:boolean;beginfor i:=1 to 10 do read(a[i]);b:=false; for i:=1 to 10 do if a[i] mod 5=0 then begin t:=t+a[i]; b:=true; end;if b then writeln(t) else wri...