Написать программу в Паскале. По заданному числу N определите знак числа. Формат входных данных: Во входном файле input.txt записано одно целое число N (-10000

Это если алгоритм выполнить дословно:

var
  f1, f2: Text;
  n: integer;

begin
  Assign(f1, input.txt); Reset(f1);
  Assign(f2, output.txt); Rewrite(f2);
  Readln(f1, n);
  if n   else
  if n = 0 then Writeln(f2, 0)
  else Writeln(f2, sqr(n));
  Close(f1); Close(f2)
end.

А это, если учесть, что модуль нуля равен нулю:

var
  f1, f2: Text;
  n: integer;

begin
  Assign(f1, input.txt); Reset(f1);
  Assign(f2, output.txt); Rewrite(f2);
  Readln(f1, n);
  if n   else Writeln(f2, sqr(n));
  Close(f1); Close(f2)
end.