с клавиатуры вводятся 11 чисел отыскать произведение отрицательных чисел делящихся на

поставить условие "если число меньше 0, и целая часть от (число/17) одинакова (число/17), то множь на это число, по другому умножай на 1" (чтоб ничего не изменилось)

var s,i,x:integer;
begin
s:=1;
for i:=1 to 11 do begin
readln(x);
if (xlt;0) and (x mod 17 = 0) then s:=s*x;
end;
if slt;gt;1 then writeln(s) else writeln('0');
end.