Данные числа c и d являются соотвественно квадратом и кубом числа "A"нужно…

Program KvCube; Uses Crt; var a,c,d: integer; begin clrscr; write ('Введите число А: '); readln (a); write ('Введите квадрат числа А: '); readln (c); write ('Введите куб числа А: '); readln (d); if (c=a*a) and (d=a*a*a) then writeln ('TRUE') else writeln ('FALSE'); readkey; end.