Даны натуральные числа а и в ,обозначающие соответственно числитель и знаменатель дроби.сократить дробь,т. е. найти такие натуральные числа p и q не имеющие общих делителей ,что p/q = a/b

// PascalABC.NET 3.3, сборка 1611 от 06.01.2018
// Внимание! Если программа не работает, обновите версию!

uses NumLibABC;

begin
  var (a,b):=ReadInteger2('Введите числитель и знаменатель дроби:');
  Frc(a,b).Print
end.

Пример
Введите числитель и знаменатель дроби: 360 2940
6/49