Составьте программу для вычисления выражений по формулам
х+у/х+1 - ху-12/34+х

х-х³/3+х⁵/5

program massiv;

var x,y: integer;

a,b: real;

uses crt;

begin

clrscr;

writeln('вводи x');

writeln('вводи y');

readln(x,y);

if (y> -1) and (y< 1)

then writeln('число подохдит, решаю первое уравнение x1=')

else writeln('выбери другое число');

b: =((x+y)/(x+1))-((x*y)-(12/34)+x);

writeln(b: 6: 1);

if (x> -1) and (x< 1)

then writeln('число подохдит, решаю второе уравнение x2=')

else writeln('выбери другое число');

a: =x-((x*x*x)/3)+((x*x*x*x*x)/5);

writeln(a: 6: 1);

end.

держи