Заданы два положительных числа х и у .Определите верно ли что одно из них делиться на другое без остатка или нет .Выведите на экран соответствующее сообщение.Помогите пожалуйста

var x,y:integer;beginread(x,y);if x mod y = 0 then writeln('Без остатка')else writeln('С остатком');end.