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

Question

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

Answer 1

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