Question

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

Answer 1

program fgg;

var
n: integer;

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