Дано двузначное число . найти квадрат суммы его цифр

Pascal
Program square;
Var a, b: integer;
Begin
Readln(a);
B := a mod 10 + a div 10;
B := power(b,2);
Writeln(b);
End.