program abc;

var
n, result: integer;

begin
writeln('Enter a number: ');
readln(n);

result := n - n*n;

writeln('Result: ', result);
end.