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

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