Сделать программу на языке паскаль с repeat

program While2;

uses PT4;

function Iter(a, b: real): integer;

begin

 Result := 0;

 repeat

   Result += 1;

   a -= b

 until a < b

end;

begin

 Task('While2');

 var (A, B) := ReadReal2();

 Write(Iter(A, B))

end.