1. Дано целое двузначное число. Написать программу которая находит квадрат суммы его цифр. pascal

Program qwerty;

var a, b, c, d:integer;

begin

writeln ('Нахождение квадрата суммы цифр двузначного числа') ;

writeln ('Введите число ') ;

readln (a) ;

b: = a mod 10;

a: = a div 10;

c: = a mod 10;

a: = a div 10;

d: = sqr (b + c) ;

writeln ('Ответ: ', d)

end.