{* Задача 134 *}

Unit ZADACH134;
Interface
Implementation
Begin
 writeln('Сократимая ли дробь a/b? Дробь a/b несократимая, если НОД=1 ');
End.

Program pas13528;

Uses zadach134.pas; {* Эту строку можно удалить *}
Uses crt; {* Подключение модулей *}
Var {* Объявление переменных *}
  m               : longint;
  n               : longint;
  ot              : longint;
Procedure nod(a : longint;
b               : longint;
Var {* В работе нам потребуются переменные: *}
  n : longint);
Begin
  While ab Do
    If a > b Then
      a := a - b
    Else b := b - a;
      n := a;
End;
Begin
  clrscr; {* Стираем всё с экрана *}
  write('числитель ');
  readln(m);
  write('знаменатель ');
  readln(n);
  nod(m, n, ot);
  If ot = 1 Then
    write('несократимая')
  Else write('сократимая');
    readln; {* Ждем нажатия Enter *}
End.