сделать программу в pascal abc
n-n^2

program fgg;

var
n: integer;

begin
Write('n=');
ReadLn(n);
WriteLn(n-sqr(n));
end.