Напишите экспоненциальную форму записи вещественного числа а

экспоненциа́льная за́пись  — представление действительных чисел в виде  мантиссы  и  порядка. удобна при представлении больших и малых чисел, а также для унификации их написания.

{\displaystyle n=m\cdot n^{p}}, где

примеры:

1 000 000 (один миллион):   {\displaystyle 1{,}0\cdot 10^{6}}; n = 1 000 000, m = 1,0, n = 10, p = 6.

1 201 000 (один миллион двести одна тысяча):   {\displaystyle 1{,}201\cdot 10^{6}}; n = 1 201 000, m = 1,201, n = 10, p = 6.

−1 246 145 000 (минус один миллиард двести сорок шесть миллионов сто сорок пять тысяч):   {\displaystyle -1{,}246145\cdot 10^{9}}; n =  −1 246 145 000, m = −1,246145, n = 10, p = 9.

0,000001 (одна миллионная): {\displaystyle 1{,}0\cdot 10^{-6}}; n = 0,000001, m = 1,0, n = 10, p = −6.

0,000000231 (двести тридцать одна миллиардная): {\displaystyle 231\cdot 10^{-9}=2{,}31\cdot 100\cdot 10^{-9}=2{,}31\cdot 10^{2}\cdot 10^{-9}=2{,}31\cdot 10^{-9+2}=2{,}31\cdot 10^{-7}}; n = 0,000000231, m = 2,31, n = 10, p = −7.

var koef: array[1..3] as integer;  

d: real;

i: integer;

begin

randomize;

; генерируем коэффициенты a b c

for i: =1 to 3   do

begin

koef[i]: =random(100);

end;

; считаем дискриминант 

d: =koef[2]*koef[2]-4*koef[1]*koef[3];

; выводим ответ

writeln(d: 5: 2);

end.