begin
  var k := ReadLnInteger('K=');
  var n := ReadLnInteger('N=');
  for var j := 1 to n do
    if (j * k div n) * n = j * k then
    begin
      WriteLn('Результат: ', j <> 1 ? k + '/' + n + ' = ' + (j * k div n) + '/' + j : k + '/' + n + ' = ' + (j * k div n));
      break;
    end;
end.