Написать программу на Паскаль:
1) Составить программу, которая при заданных значениях x и y вычисляет функции A с точностью 10^-3
A=((x*y)/(x+y))/(1+√(x²-x-4));
2) Составить программу, которая запрашивает ввод коэффициентов a,b,c,d уравнение вида "ax+b=c+dx", а после ввода коффициентов напечатает или решение или сообщение о том, что решение не существует, коэффициенты уравнения вводятся в соответствии одному из этих случаев.

1) Точность вычисления в программе не задается. Указано только количество цифр дробной части (3), которое требуется вывести на экран.var x,y,a:real;beginwrite('x = ');readln(x);write('y = ');readln(y);if x*x-x-4>=0 then begin a:=((x*y)/(x+y))/(1+sqrt(x*x-x-4)); writeln('a = ',a:5:3); end else writeln('Корень из отрицательного числа');end.2)var a,b,c,d:real;beginwriteln('Введите a, b, c, d:');readln(a,b,c,d);if (a=d) then if (c=b) then writeln('Бесконечно много решений')               else writeln('Решения нет') else writeln('x = ',(c-b)/(a-d));end.Пример:Введите a, b, c, d:2 1 4 3x = -3