{~ Добро пожаловать на www.cyberpascal.ru ~}
var a,b,count,temp:longint;

Function GCD(a:longint; b:longint):longint;
Begin
if (A*B)=0 then GCD:=A+B
           else if (A > B) then GCD:=GCD(A mod B, B)
                           else GCD:=GCD(A, B mod A);
end;

Begin
Write('Введите стороны прямоугольника: '); Readln(A,B);
Count:=0;

While B <> 0 do
      Begin
      Count+=A div B;
      Temp:=B;
      B:=A mod B;
      A:=Temp;
      end;

Writeln('Ответ: ',Count,' ',GCD(A,B));
end.