输入n是一个三位数，输出能被3整除,且至少有一位数字是5的数.用Pascal语言中的for语句

var i,n,j,k:integer; begin i:=102; while i<999 do begin j:=i; k:=0; while j>0 do begin if j mod 10=5 then begin k:=1; break end; j:=j div 10; end; if k=1 then write(i,' '); inc(i,3); end; end. var i,n,j,k:integer; begin i:=102; repeat j:=i;