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.

Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.