Произвести расчеты и вывести результат в виде таблицы

program Lab_1;       
var
  p, x: real;                
  a, b, c: real;             
begin                                             
    writeln('Введите значение P');                                          
    Readln(p);  
    
    writeln('Введите значение X');                                          
    Readln(x);                                            
  
  if (sqrt(p*p*p) + (x*x) + 4.5) >= 0 then                                                  
   begin                                                                                                  
    if (sin (sqrt(p*p*p) + (x*x) + 4.5)) >= 0                            
    then begin                                                                                        
      a := (sin (sqrt(p*p*p) + (x*x) + 4.5));  
      if (ln(x*x*x) + abs(x*x*x*x - 2*p)) >= 0                                                            
      then begin 
        b := (x*x - exp (ln(x*x*x) + abs(x*x*x*x - 2*p)));            
         c := a/b;                                                                       
            writeln(c); 
           end                                      
        else writeln( 'Знаменатель равен нулю.') end                                    
      else writeln( 'Значение степени меньше нуля.') end                                     
    else writeln('Числитель равен нулю.') end                                      
  else writeln('Под корнем стоит число меньше нуля.'); 
end.