Вводятся две целочисленные переменные aa и bb. напишите программу, которая находит значение выражения: (a+b)2+(a−b)2−3ab

Var

  a, b: integer;
begin

  readln(a, b);

  write(2 * (a + b) + 2 * (a - b) - 3 * a * b);

end.