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.

*************************************




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.