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

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