Theo đúng đề:
program bieu_thuc;
uses crt;
var x:integer;
begin
clrscr;
write('Nhap x: '); readln(x);
write('Ket qua: ',(x-2)*(x-2)*(x+2)+(x+2));
readln;
end.
Nếu là: (x-2)^2 *(x+2) * (x+2)
program bieu_thuc;
uses crt;
var x:integer;
begin
clrscr;
write('Nhap x: '); readln(x);
write('Ket qua: ',(x-2)*(x-2)*(x+2)*(x+2));
readln;
end.