Написать в паскале ,пожалуйста(ПС ТАМ на 1 скрине замазано черным там

Var
A,B,C,D:integer;
Begin
Read(A,B,C);
D:=B*B-4*A*C;
if Dgt;=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 Ngt;0 then Write('Положительное')
else if Nlt;0 then Write('Отрицательное')
else WriteLn('Одинаково нулю')
End.

1.
var a,b,c,d,x1,x2:real;
begin
write('a, b, c: ');
readln(a,b,c);
d:=b*b-4*a*c;
if dgt;=0
 then begin
      x1:=(-b+sqrt(d))/(2*a);
      x2:=(-b-sqrt(d))/(2*a);
      writeln('x1 = ',x1,' x2 = ',x2);
      end
 else writeln('Уравнение не имеет решений');
end.

Пример:
a, b, c: 2 3 1
x1 = -0.5 x2 = -1

2.
var n:integer;
begin
write('n = ');
readln(n);
if ngt;0
 then writeln(n,' - положительное')
 else if nlt;0 then writeln(n,' - отрицательное')
             else writeln('n = 0');
end.

Пример:
n = -7
-7 - отрицательное