Программа

{ Расчет усилия }
Uses Crt;
Var Dz,d1,S0,Mu,q,Rm,SigmaI,SigmaRMax,SigmaB,Psi,m,Pmax:real;
BEGIN
  ClrScr;
  WriteLn('РАСЧЕТ УСИЛИЯ ');
  WriteLn;
  Write('Диаметр заготовки                   Dz='); ReadLn(Dz);
  Write('Диаметр свернутого колпачка         d1='); ReadLn(d1);
  Write('Толщина заготовки                   S0='); ReadLn(S0);
  Write('Коэффициент трения                  Mu='); ReadLn(Mu);
  Write('Удельное усилие                      q='); ReadLn(q);
  Write('Радиус матрицы                      Rm='); ReadLn(Rm);
  Write('Предел прочности                SigmaB='); ReadLn(SigmaB);
  Write('Относительное равномерное сужение  Psi='); ReadLn(Psi);
  WriteLn('--------------------------------------------------------');


  m:=d1/Dz;
  SigmaI:=SigmaB*(1-m)/(1-Psi);
  SigmaRMax:=1.1*SigmaI*
             (Ln(1/m)+2*q*Mu/1.1/SigmaI+S0/4/(Rm+0.5*S0))*
             exp(Mu*Pi/2);
  Pmax:=SigmaRMax*Pi*Dz*S0;


  WriteLn('Коэффициент вытяжки                  m=',m);
  WriteLn('Напряжение                      SigmaI=',SigmaI);
  WriteLn('Мередиальное напряжение      SigmaRMax=',SigmaRMax);
  WriteLn('Максимальное усилие               PMax=',PMax);

  WriteLn;
  Write('Нажмите клавишу');
  if ReadKey='' then;
  WriteLn;
END.