1)Ввести в компьютер любым три произвольные цифровые переменные (n, p, q), найти и распечатать их произведение.

2)Найти значение алгебраического выражения y при х= -1.9.

y=(-x(x+1)^2)/(2-x(x-1)^2 )

1. var n, p, q, mul:Integer;

begin

readln(n);

readln(p);

readln(q);

mul:=n*p*q;

writeln(mul);

end.

2.

var x, y:Real;

begin

x:=-1.9;

y:=(-x*sqr(x+1))/(2-x*sqr(x-1));

writeln(y);

end.

Программа выдаёт ответ ~8,56