pascal语言 100里所有被2,3,5除余数1的数

var
i:integer;
begin
for i:=1 to 100 do
if i mod 2=1 and i mod 3=1 and i mod 5=1 then
write(i,' ');
end.

var
List: TStrings;
i: Integer;
begin
List := TStringList.Create;
try
for i := 1 to 100 do
if (i mod 2 = 1) or (i mod 3 = 1) or (i mod 5 = 1) then
List.Add(IntToStr(i));
List.SaveToFile('C:\结果.txt');
finally
List.Free;
end;
end;