Verified answer

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.