ОБРАЗЕЦ!!!Program Formula3;
Var a: real;
Var x: integer;
begin
Writeln('Введите значение переменной x');
Readln(x);
a:=(1-(1/(x+1)))/(x+((x*x-2)/(-x)));
Writeln('Значение выражения при x = ',x,'=>>',a);
End.
Д.З. Написать текст программы для любой из предложенных формул. Все остальные формулы переписать на языке Pascal.
