Напишите программу которая для введённой пары положительных чисел, большее число делит на меньшее до того, пока оно не станет меньше единицы

П0 <-> П1 - x<0 13 ИП0 П2 ИП1 П0 ИП2 П1
ИП0 1 - x<0 22 ИП0 ИП1 / П0 ИП0 С/П

Var
  a,b,t:real;

begin
  Write('Введите через пробел два положительных числа: ');
  Read(a,b);
  if b>a then begin t:=a; a:=b; b:=t end;
  repeat
    a:=a/b
  until a<1;
  Writeln(a)
end.

Пример
Введите через пробел два положительных числа: 1.7 153.4
0.760915000615007