Var a:array[100..999] of longint; i:longint;
begin
For i:=1 to 999 do
If ((a[i] mod 3) = 0) and ((a[i] mod 5) = 0) then
writeln(a[i]) ;
End.
Попробуй. И поставь как лучший
