Переписать код, используя другие операторы

const
e=0.01; {Задаём константу}
var
t:integer;
Q,Pn,V,Pl,Pp,Pc,eps,zl,ul,fl,zp,up,fp,Pc1:real;  {Задаём переменные}
 
function z (p: real):real;   {Вводим в программу функцию z(p)}
begin
z:=(1.6*p*p-480*p+90000)/(Pn*Pn);
end;
 
function u (p: real): real;   {Вводим в программу функцию u(p)}
begin
u:=(-0.35*p*p+84*p+6300)/(Pn*Pn);
end;
 
function f(p: real): real;    {Вводим в программу функцию f(p)}
begin
f:=P-z(p)/(1-u(p))*((Pn/z(Pn))-Q*t/V);
end;
 
 
begin
 Pn:=294; Q:=30; V:=1;     {Вычисляем значения z(p),u(p),f(p) при начальном давлении}
 writeln('z(pn)= ',z(Pn):6:3);
 writeln('u(pn)= ',u(Pn):6:3);
 t:=1;
 writeln('f(pn)= ',f(Pn):6:3);
 Pl:=Pn;
  for t:=1 to 5 do           {Задаём интервал константы t}
 
 begin
  writeln('Примем t=', t,'.');    {Производим расчёт f(Pl),f(Pp),z(Pl),z(Pp),u(Pl),u(Pp), приняв за левую границу начальное давление, за правую - начальное давление,умноженное на 0,5}
  Pp:=0.5*Pl;
  eps:=abs(Pl-Pp);
  writeln('f(Pl)=',f(Pl):6:3);
  writeln('f(Pp)=',f(Pp):6:3);
  writeln('z(Pl)=',z(Pl):6:3);
  writeln('z(Pp)=',z(Pp):6:3);
  writeln('u(Pl)=',u(Pl):6:3);
  writeln('u(Pp)=',u(Pp):6:3);
  if f(Pl)*f(Pp)<0 then         {Проверяем условие: произведение f от правой и левой границ давление должно быть значением отрицательным}
  begin                         {Если условие верно, производим расчёты по определению давлений до тех пор, пока eps>e, т.е. пока разница между левой и правой границе не станет меньше 0,01}
 
   while eps>2*e  do
    begin
    Pc:=(Pl+Pp)/2;
     if f(Pl)*f(pc)<0
     then
       begin
       Pl:=Pl;
       Pp:=Pc;
       end
 
     else
       begin
       Pl:=Pc;
       Pp:=Pp;
       end;
    eps:=abs(Pl-Pp);
    end;
 
  end;
 if f(Pl)*f(Pp)<0 then else writeln('Произведение f(Pl)*f(Pp) не отрицательно, расчёты давления не производятся.');
 if eps<2*e then writeln('Конечное давление равно ', (pl+pp)/2:6:3);
 end;
readln;
end.
 
 
 
 
var a,b,S,h,int: real;             
    i,n: integer;
 
function f(x: real): real;          
begin
 f:=(sin(x*x)/cos(x*x))/((x*x)+1);
end;
 
begin                               
 a:=0.2;                            
 b:=1;                                
 n:=10;
 h:=(b-a)/n;                      
 for i:=1 to n-1 do
  S:=s+f(a + h*i);                  
 int:=h*((f(a)+f(b))/2+S);          
 writeln('Интеграл = ',int:8:5);    
 readln;
end.
 
 
 
 
 
var                               
z,a,b,h,s:real;
n:integer;
 
function Y(x:real):real;           
begin
Y:=(sin(x*x)/cos(x*x))/((x*x)+1);
end;
begin
b:=1;                              
a:=0.2;                            
n:=10;                             
h:=(b-a)/n;                         
s:=0; z:=a+h;                       
while z<b do                       
begin                               
s:=s+4*Y(z);                                                    
z:=z+h;                           
s:=s+2*Y(z);                       
z:=z+h;                           
end;                             
s:=h/3*(s+Y(a)-Y(b));              
writeln('Интеграл = ',s:8:5);      
end.