Неповний умовний оператор

 Var n1,n2,n3:integer; p:longint; 
begin 
 write('введите 3 числа '); read(n1,n2,n3); 
 if (n1>n2)and(n1>n3) then p:=n2*n3; 
 if (n2>n1)and(n2>n3) then p:=n1*n3; 
 if (n3>n1)and(n3>n2) then p:=n2*n1; 
 writeln(p); 
end.


 Var n:byte; 
begin 
 write('месяц '); read(n); 
 if (n=1)or(n=2)or(n=12) then writeln('зима'); 
 if (n>=3)and(n<=5) then writeln('весна'); 
 if (n>=6)and(n<=8) then writeln('лето'); 
 if (n>=9)and(n<=11) then writeln('осень'); 
 if (n>12)or(n=0) then writeln('ошибка'); 
end.