Какая задача решается по следующей программе?

Program Test

var A,B,C: integer;

begin

          readln ( A,B);

          C:(A+B)*(B-A)

          writeln(C)

end.

Задача связана с программой паскаль.

если не считать пропущенное равно, то нужна разница квадратов В и А