составьте программу дискриминанта так, чтобы а,b,с -задавались генератором случайных чисел (random);+эта программа должна включать в себя !двухмерный массив размером 5 на 10  ( в Pascal )

var

a: array [1..5,1..10] of integer;i,j:integer;beginfor i:=1 to 3 dobeginfor j:=1 to 10 do

a[i,j]:=random(50)-100;end;for j:=1 to 10 doa[4,j]:=sqr(a[2,j])-4*a[1,j]*a[3,j];for j:=1 to 10 dowriteln('a=',a[1,j],' b=',a[2,j],' c=',a[3,j],' D=',a[4,j]);readln;end.

 p.s не понял зачем там массив 5х10 если нужно найти дискриминант?