Написать программу на паскале которая вычисляет дискриминант квадратного уравнения

A, b, c, d : integer; begin writeln('введите коэфф-ты а, b и c'); readln(a,b,c); d = b * b - 4 * a * c; writeln(d); readln(); end.  учтите, что если вам нужна программа для нахождения корней квадратного уравнения, то вам надо проверять все условия. например, дескриминант может быть равен нулю и тд

Type mas=array[1..3] of integer; var a,b: mas; i,k: integer; procedure proc(var x: mas); var i: integer; begin x[1]: =random(25)+1; x[2]: =random(25)+26; x[3]: =random(50)+51; for i: =1 to 3 do write(x[i],' '); writeln; end; begin randomize; writeln('1-й массив: '); proc(a); writeln('2-й массив: '); proc(b); k: =0; for i: =1 to 3 do   if a[i]=b[i] then k: =k+1; writeln('число совпавших элементов = ',k); end. пример: 1-й массив: 6 29 582-й массив: 21 29 63число совпавших элементов = 1

Var a,b: array[1..3] of integer; begin a[1]: =random(26); b[1]: =random(26); a[2]: =random(26)+25; b[2]: =random(26)+25; a[3]: =random(51)+50; b[3]: =random(51)+50; writeln(a[1],' ',a[2],' ',a[3]); writeln(b[1],' ',b[2],' ',b[3]); if (a[1]=b[1]) and (a[2]=b[2]) and (a[3]=b[3]) then writeln('совпало 3') else if ((a[1]=b[1]) and (a[2]=b[2])) or ((a[2]=b[2]) and (a[3]=b[3])) or ((a[1]=b[1]) and (a[3]=b[3])) then writeln('совпало 2') else if (a[1]=b[1]) or (a[2]=b[2]) or (a[3]=b[3]) then writeln('совпало 1') else writeln('совпадений нет'); end. p.s писал не на компьютере, возможны ошибки, проверьте и в случае если обнаружатся ошибки, напишите мне