Компьютерная модель это модель, выполненная с компьютерных технологи​

Var
 x,a,b,c,max,min,mid:real;
begin
 readln(x);
 a:=sin(x);
 b:=cos(x);
 if a>0 then
  begin
   c:=ln(x);
   if (a>b) and (a>c) then max:=a else
   if (b>a) and (b>c) then max:=b else max:=c;
   if (a<b) and (a<c) then min:=a else
   if (b<a) and (b<c) then min:=b else min:=c;
   if (a>min) and (a<max) then mid:=a else
    if (b>min) and (b<max) then mid:=b else mid:=c;
   writeln(min,' ',mid,' ',max);
  end
 else
  if a>b then writeln(b,' ',a) else writeln(a,' ',b);
end.

   А    B    C    неА   BvC   не A ∧(B∨C)    C∧A   B∨C∧A     f
    0    0    0        1      0              0                0         0            1                     
    0    0    1        1      1              1                0         0            0       
    0    1    0        1      1              1                0         1            1                   
    0    1    1        1      1              1                0         1            1      
    1    0    0        0      0              0                0         0            1                          
    1    0    1        0      1              0                1         1            1              
    1    1    0        0      1              0                0         1            1            
    1    1    1        0      1              0                1         1            1