Нужно написать программу в паскале. на вход поступает некое целое число икс(х).х принадлежит промежутку (-30000; 30000) если х четное и делится на 5 то выводится соответствующая надпись.если нет- надпись не выводится

Var
  number : integer;
begin
  number := Random(-30000, 30000);
  if ((number mod 2 = 0) and (number mod 5 = 0)) then
    writeln('X удовлетворяет условию')
  else
    writeln('X не удовлетворяет условию');
end.