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

Program Test

var A,B,C: integer;

begin

          readln ( A,B);

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

          writeln(C)

end.

Всмысле какая задача? (Ну если я правильно понял вопрос,то математическая)Тут находится только С по формуле: (A+B)*(B-A) и выводит результат (С) на экран.

С:=(A+B)*(B-A) должно быть ну и тогда С это разность квадратов А и В