Question

Составьте пожалуйста программу на Паскале (1). Только правильно!

Answer 1

var x, a, b: real;
begin
wreteln("Введите a и b");
reeadln(a, b);
x:= (a*b)/(sqr(a) - sqr(b));
writeln(x);
end.