Даны 2 целых числа х и у.вывести на экран монитора остаток от деления числа х на число у.числа х и у ввести с клавиатуры.

Program primer;
uses
   crt;
var
   x,y:integer;
begin
   writeln('Введите x и y');
   readln(x,y);
   writeln('Остаток от деления ',x, ' на ',y, ' равен ',x mod y);
end.