Дано двухзначное число определить равен ли квадрат этого числа учетверенной сумме

program zz1;

var a, b, p, s:integer; // задаем переменные целого типа

begin

write( введите двузначное число );  // вводим с клавиатуры двузначное число

read(a);  

b:= a mod 10; // обретаем вторую цифру двузначного числа

p:= a div 10; // находим первую цифру двузначного числа

s:=b * b * b + p * p * p; // высчитываем сумму кубов цифр двузначного числа

if sqr(a) = 4 * s // проверяем, если квадрат числа равен учетверенной  сумме кубов его цифр, то

then write( ответ положительный  ) // выводим один ответ

else write( ответ отрицательный );   // выводим другой ответ

end.