Question

Вычислить значение выражения AxA-A. В паскале.

Answer 1

var
  a: integer;
begin
  write('Введите a:');readln(a);
  writeln(a*a-a);
end.

Answer 2

var
  a: integer;
begin
  write('Введите a:');readln(a);
  writeln(a*a-a);
end.