Пользователь вводит число с клавиатуры. Программа должна определить и вывести на экран сообщение о том, является ли введенное число двузначным или нет? (решить надо в питоне)

Var a,b,c,d: integer; begin   writeln('введите 4 числа через пробел'); readln(a,b,c,d);   if (a> 0)and(b> 0)and(c> 0)and(d> 0) then writeln('все числа положительные')   else  if  ((a< 0)and(b> 0)and(c> 0)and(d> 0))or((a> 0)and(b< 0)and(c> 0)and(d> 0))or((a> 0)and(b> 0)(c< 0))or((a> 0)and(b> 0)and(c> 0)and(d< 0)) then writeln('3 числа положительные')   else if ((a< 0)and(b< 0)and(c> 0)and(d> 0))or((a< 0)and(b> 0)and(c< 0)and(d> 0))or((a< 0)and(b> 0)and(c> 0)and(d> 0))or((a< 0)and(b> 0)and(c> 0)and(d< 0))or((a> 0)and(b< 0)and(c< 0)and(d> 0))or((a> 0)and(b< 0)and(c> 0)and(d< 0))or((a> 0)and(b> 0)and(c< 0)and(d< 0)) then writeln('2 числа положительных');   else if ((a> 0)and(b< 0)and(c< 0)and(d< 0))or((a< 0)and(b> 0)and(c< 0)and(d< 0))or((a< 0)and(b< 0)and(c> 0)and(d< 0))or((a< 0)and(b< 0)and(c< 0)and(d> 0)) then writeln('1 положительное число')   else if  (a< 0)and(b< 0)and(c< 0)and(d< 0) then writeln('нет положительных чисел');   readln end.