将下列代数式改写成Free Pascal表达式 （1）(x+y)(x-y) （2）b

将下列代数式改写成Free Pascal表达式 （1）(x+y)(x-y) （2）b
将下列代数式改写成Free Pascal表达式 （1）(x+y)(x-y) （2）b

将下列代数式改写成Free Pascal表达式 （1）(x+y)(x-y) （2）b
(x+y)(x-y)
x,y,result:real
...
result:= (x+y)*(x-y);
...

var x,y:real
begin
readln(x,y);
writeln(sqr(x)-sqr(y));
readln;readln;
end.

x*x-y*y 根据平方差公式

var ans,x,y:real;
begin
readln(x,y);
ans:=(x+y)*(x-y);
end.