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

Program Test

var A,B,C: integer;

begin

          readln ( A,B);

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

          writeln(C)

end.