Не сдам сегодня 2 поставит.​

Аббревиатура - В словообразовании: существительное, образованное из усеченных отрезков слов (например, исполком, комсомол), из таких же отрезков в сочетании с целым словом (например, роддом, запчасти), а также из начальных звуков слов или названий их начальных букв (например, вуз, АТС, МХАТ, ЦК, ВДНХ), сложносокращенное словоЕфремова Т.Ф. Толковый словарь русского языка.аббревиатура
ж.
1) Слово, образованное из первых букв единиц в словосочетании (США, вуз и 
т.п.), из начальных частей двух и более слов (продмаг, колхоз и т.п.) или 
представляющее собою сложение начала одного слова с другим словом словосочетания 
(роддом, драмкружок и т.п.).
2) Условное сокращение в буквенном и нотном письме (и т.д., см. и т.п.).С.И.Ожегов, Н.Ю.Шведова. Толковый словарь русского языка.аббревиатура, -ы, ж. В словообразовании: существительное, образованное
из усеченных отрезков слов (напр., исполком, комсомол), из таких же отрезков
в сочетании с целым словом (напр., роддом, запчасти), а также из начальных
звуков слов или названий их начальных букв (напр., вуз, АТС, МХАТ, ЭВМ,
СКВ), сложносокращенное слово. II прил. аббревиатурный, -ая,-ое.

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

var
  f1, f2: Text;
  n: integer;

begin
  Assign(f1, 'input.txt'); Reset(f1);
  Assign(f2, 'output.txt'); Rewrite(f2);
  Readln(f1, n);
  if n < 0 then Writeln(f2, abs(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 <= 0 then Writeln(f2, abs(n))
  else Writeln(f2, sqr(n));
  Close(f1); Close(f2)
end.