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

program wz;var a,b:integer;x:real;beginwriteln('Введите a ');readln(a);writeln('Введите b');readln(b);x:=(a+b)/(a*b);writeln('x=',x);end.