PASCAL中输出1 999中能被3整除,且至少有一位数字是5的所有整数????????

program liuke;
var
i,j:longint;
s:string;
begin
s:='';
for i:=1 to 333 do
begin
str(3*i,s);
if pos('5',s)<>0 then write(3*i,' ');
end;
end.

var a,i,j,k,l:integer;
begin
for i:=0 to 1 do
for j:=0 to 9 do
for k:=0 to 9 do
for l:=0 to 9 do begin
a:=i*1000+j*100+k*10+l;
if a mod 3=0 then
if (j=5) or (k=5) or (l=5) then write(a,' ');
end;
wrieln;
readln;
end.

1995，1965，1935