Вывести на экран 10 трехзначных чисел, которые делятся на 3, но не делятся на 5 в паскале Пример:var x, k:integer;beginrandomize;k:=0;while k<=10 do beginfor x:=random (900)+100if (x mod 3) and (x mod 5 <> 0) then k:=k+1;writeln (x);end;end. - тут вроде примерно правильно, но нужно подправить​