)CРоОчНо)!Решите неравенство ! 1) x(x+5)-x^2 ≤ 15 2) 3x)2-x)>12-3x^2 3) (x-4)(x+3)-54x(x^2-3)+12

{$mode delphi}Var a,b,c,d,e:integer;begin;d:=-999;read(a);for b:=1 to a do  begin read(c);  if c>d then    begin  d:=c;  e:=b;  end;end;writeln(e);end.

1) х² + 5х - х² ≤ 15   5х ≤ 15    х ≤ 32) 6х - 3х² > 12 - 3x²     6x > 12      x > 2