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

BEGIN

READ (temp,Ch);

IF (Ch = '. ')

THEN

ELSE

WRITE (temp1,Ch);

END;

READLN (temp);

WRITELN (temp1)

END;

RESET (temp);

REPEAT {Считаем количество разрядов первого числа}

BEGIN

READ (temp,Ch);

k1: =k1*x1;

END

UNTIL (Ch = '. ') OR (EOLN (temp));

READLN (temp);

REPEAT {Считаем количество разрядов второго числа}

BEGIN

READ (temp,Ch);

k2: =k2*x1;

END

UNTIL (Ch = '. ') OR (EOLN (temp));

RESET (temp1);

REWRITE (temp);

st1: ='';

st2: ='';

IF k1>k2 {ищем на сколько разрядов сдвигать вправо меньшее число }