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.
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.