Программа на Pascal будет выглядеть следующим образом:

program ReduceFraction;
var
numerator, denominator, a, b, remainder: integer;
procedure Reduce(var m, n: integer);
begin
a := m;
b := n;
while b <> 0 do
begin
remainder := a mod b;
a := b;
b := remainder;
end;
m := m div a;
n := n div a;
end;
begin
writeln('Введите числитель и знаменатель дроби: ');
readln(numerator, denominator);
Reduce(numerator, denominator);
writeln('После сокращения: ', numerator, '/', denominator);
end.

Эта программа позволит пользователю ввести числитель и знаменатель дроби, а затем сократит эту дробь и выведет результат.