Составьте программу дискриминанта так, чтобы а,b…

Var koef: array[1… 3] as integer; d: real; i: integer; BeginRandomize; Генерируем коэффициенты a b cfor i: =1 to 3 dobeginkoef[i]: =random (100); end; Считаем дискриминант d: =koef[2]*koef[2]-4*koef[1]*koef[3]; выводим ответWriteln (d: 5:2); end.