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

vara: array [1… 5,1… 10] of integer; i,j: integer; beginfor i: =1 to 3 dobeginfor j: =1 to 10 doa[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 если нужно найти дискриминант?