Написать в паскале ,пожалуйста(

ПС ТАМ на 1 скрине замазано черным там написана формула x1=(-b-корень D)/2a x2= (-b-корень D)/2a

Var
A,B,C,D:integer;
Begin
Read(A,B,C);
D:=B*B-4*A*C;
if D>=0 then
Begin
WriteLn('x1 = ',(-b-sqrt(D))/(2*a));
WriteLn('x2 = ',(-b+sqrt(D))/(2*a));
End
else
WriteLn('Уравнение корней не умеет');
End.



Var N:integer;
Begin
Read(N);
if N>0 then Write('Положительное')
else if N<0 then Write('Отрицательное')
else WriteLn('Равно нулю')
End.