Найти номер первого, меньшего нуля, тангенса, среди tg(r), tg2, tg1. через программу паскаля

Var r, i: integer;
begin
  write('r = ');
  readln(r);
  for i := r downto 1 do
    if Tan(i) < 0 then
      break;
  write(i);
end.