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))<br> else
    if x>1 then y:=sqrt(tan(x*x-1))
    else y:=-2*x;
Writeln(y)
end.