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