(а+в)^2=a^2+2ab+b^2 написать пограмму в паскале

Var
   A,B:real;
Begin
WriteLn('(a+b)^2 = a^2 +2ab +b^2');
WriteLn('Введи значения a и b через пробел');
ReadLn(A,B);
WriteLn(sqr(A),' +',2*a*b,' +',sqr(b));