Дано двухзначное число определить равен ли квадрат этого числа учетверенной сумме кубов его цифр например для числа 48 положительный для числа 52 отрицательный в pascal

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.