Задача с использованием оператора case Опции

[Zharatustra]

Очень нужна ваша помощь. Программа заключается в том что z надо расчитать по формуле b^10(10-ab), если 0<ab<10 или по формуле 44a^12, если ab>10. В программе должен быть использован оператор case. Вот текст этой программы с использованием оператора if.

 
program n1;                                                             
  uses crt;                                                                
 var a,b,c,z: real;                                                       
  begin                                                                      
  clrscr;                                                                     
   write ('A,B,C= ');                                                        
   readln(a,b,c);                                                             
   if (b=0) or (a=0) then                                                     
    writeln ('Danniy vvedenie nekorrektno')                                   
   else                                                                       
   if (0<a*b) and (a*b<10) then                                               
     z:=(exp(10*ln(b)))*(10-a*b)                                              
   else                                                                       
     z:=44*(12*ln(a));                                                   
   writeln (z:7:3,z);                                                     
  readln                                                                    
 end.                                                                         
 

[мисс_граффити]

если a и b - real, то сделать "в лоб" не получится. Только через округление...
Грубо говоря, вот так:

case trunc(a*b) of
  0..10: z:={первое значение};
  10..MaxInt: z:={второе значение};
  else
    writeln('error!');
  end;