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

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.