Пажауыста севодня нада звавать пажауыста помагите

табличні  величини

Объяснение:

т → просто буква т → т

граблі → убираем 2 первые буквы и 1 последнюю букву, т.к. до картинки стоит 2 запятые, а после 1 запятая → абл

и → просто буква и → и

ч → просто буква ч → ч

кінь → пишем слово справа налево, т.к. картинка перевёрнута → ьнік → убираем первую букву и последнюю букву, т.к. до картинки стоит 1 запятая и после 1 запятая → ні

собираем → табличні

лев → пишем слово справа налево, т.к. картинка перевёрнута → вел

и → просто буква и → и

ч → просто буква ч → ч

джин → убираем 2 первые буквы, т.к. до картинки стоит 2 запятые → ин

и → просто буква и → и

собираем → величини

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

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.