Задание 3. отметь показатели ультразвукового датчика

PascalABC.NET 3.3.5, сборка 1662 от 29.04.2018
Внимание! Если программа не работает, обновите версию!

procedure RedFrac(a,b:integer; var c,d:integer); // сокращение дроби

function Gcd(a,b:integer):integer; // НОД
begin
  while b<>0 do begin a:=a mod b; Swap(a,b) end;
  Result:=a
end;

begin
  var sgnc:=Sign(a); // мы должны учитывать знак!
  var sgnd:=Sign(b); // мы должны учитывать знак!
  c:=Abs(a); d:=Abs(b);
  var g:=Gcd(c,d);
  c:=(c div g)*sgnc; d:=(d div g)*sgnd
end;

begin
  var p,q,r,s:integer;
  Write('Введите числитель и знаменатель: '); Read(p,q);
  RedFrac(p,q,r,s);
  Writeln(p,' / ',q,' = ',r, ' / ',s)
end.

Пример
Введите числитель и знаменатель: 384 4096
384 / 4096 = 3 / 32