Курсовая работа: Деление чисел в нормализованной форме

BEGIN

k: =k1/k2;

READLN (temp1,st);

READ (temp1,st);

REPEAT

BEGIN

st2: =st2 + z;

k1: =k1/x1;

END;

UNTIL k2=k1;

END

ELSE

IF k1<k2

THEN

BEGIN

k: =k2/k1;

READ (temp1,st);

REPEAT

BEGIN

st1: =st1 + z;

k2: =k2/x1;

END

UNTIL k2=k1;

END

ELSE

k: =k1;

st1: =pt+st1; {Нормализуем числа}

st2: =pt+st2;

RESET (temp1);