Даны целые числа x,y. В первой строке вывести остаток от деления первого числа на второе, а во втором-остаток от деления второго на первое

var

 x, y: Integer;

begin

 Randomize;

 WriteLn ('Введите x и y: ');

 ReadLn (x, y);

 Writeln ('Остаток от деления x на y = ', x mod y);

 Writeln ('Остаток от деления y на x = ', y mod x);

end.