Question

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

Answer 1

Program fgg;

var
n: integer;

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