На какие виды делится оператор функции проверки условий по типу применения?
очень

1) 100=1×8 в первой степени +0×8 в нулевой степени +0×8 в минус первой степени =8+0+0=8=8×10=80
102=1×8 в первой степени +0×8 в нулевой степени +2×8 в минус первой степени =8+0+16=24
91=9×8 в первой степени +1×8 в нулевой степени =72+1=73
2)100=1×16 в первой степени +0×16 в нулевой степени +0×16 в минус первой степени =16+0+0=16
102=1×16 в первой степени +0×16 в нулевой степени +2×16 в минус первой степени =16+0+32=48
91=9×16 в первой степени +1×16 в нулевой степени =144+1=145
3)100=1×8 в первой степени +0×8 в нулевой степени +0×8 в минус первой степени =8+0+0=8=8×16=128
102=1×8 в первой степени +0×8 в нулевой степени +2×8 в минус первой степени =8+0+16=24=2×16+4×16=36
91=9×8 в первой степени +1×8 в нулевой степени =72+1=73=7×16+3×16=112+3=115

Program G;
Uses Crt;
Var count, num, ch: integer;
Begin 
 ClrScr; 
 Writeln('Год високосный? 1 - да, 0 - нет'); 
 Readln(Ch); 
 If ch=1 then 
  Begin   
   Writeln('Введите номер месяца'); 
   Readln(num);   
   Сase num of  
    1, 3, 5, 7, 8, 10, 12: writeln('В месяце 31 день.'); 
    4, 6, 9, 11: writeln('В месяце 30 дней.'); 
    2: writeln('В месяце 29 дней');   
   else writeln('Некорректный ввод данных')   
  End; 
 End  
 Else if ch=0  then 
  Begin   
   Writeln('Введите номер месяца');    
   Readln(num);
   Сase num of    
    1, 3, 5, 7, 8, 10, 12: writeln('В месяце 31 день.');   
    4, 6, 9, 11: writeln('В месяце 30 дней.');   
    2: writeln('В месяце 28 дней');   
   else writeln('Некорректный ввод данных')   
   End; 
  End 
 Else writeln('Некорректный ввод данных');
Readln; 
End.