Напишите пожалуйста, программу вычисления в паскале, вот эти примеры…

{ABC-pascal}varx: real; begin write ('x='); readln (x); write ('sqrt (sinx+1) / (cosx+1)=',sqrt (sin (x)+1) / (cos (x)+1); readln; end.{г-}{ABC-pascal}varx1,x2,y1,y2: real; begin write ('x1='); readln (x1); write ('x2='); readln (x2); write ('y1='); readln (y1); write ('y2='); readln (y2); write ('sqrt (x1-x2) ^2+(y1-y2) ^2)=',sqrt (x1-x2)*(x1-x2)+(y1-y2)*(y1-y2); readln; end.{д-}{ABC-pascal}varx: real; begin write ('x='); readln (x); write ('x-2+sqrt (x^2+2x) -sinx=',x-2+sqrt (x*x+2*x) -sin (x); readln; end.