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

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 - отрицательное