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

П0 lt;-gt; П1 - xlt;0 13 ИП0 П2 ИП1 П0 ИП2 П1
ИП0 1 - xlt;0 22 ИП0 ИП1 / П0 ИП0 С/П

Var
  a,b,t:real;

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

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