Pascal. Срочно нужна помощь, прошу

var   i:integer;   a:array[1..4] of integer; begin   for i:=1 to 4 do Read(a[i]);   for i:=1 to 4 do     if a[i]<>a[1] then       begin Writeln(i); break end end. ************************************* // PascalABC.NET 3.2, сборка 1407 от 18.03.2017 (в других "паскалях" может не оказаться тангенса) var   x,y:real; begin   Read(x);   if x<0 then y:=exp(cos(x))   else     if x>1 then y:=sqrt(tan(x*x-1))     else y:=-2*x;   Writeln(y) end.