Данные числа c и d являются соответственно квадратом и кубом числа а. (программа Паскаль)

var a,c,d:integer;
begin
writeln('Введите целые числа a,c,d');
readln(a,c,d);
if(c=a*a)and(d=a*a*a) then write('Числа c,d являются квадратом и кубом числа а')
else write('Числа c,d не являются квадратом и кубом числа а')
end.