program MultiplesOf3And5;
vari: integer;
beginfor i := 1 to 1000 dobeginif imod3=0i mod 3 = 0imod3=0 and imod5=0i mod 5 = 0imod5=0 thenwritelniii;end;end.
program MultiplesOf3And5;
var
i: integer;
begin
for i := 1 to 1000 do
begin
if imod3=0i mod 3 = 0imod3=0 and imod5=0i mod 5 = 0imod5=0 then
writelniii;
end;
end.