Hãy viết phương trình pascal để tìm kết quả của biểu thức sau : (x-2)^2 *(x+2) + (x+2) ; x là số nhập từ bàn phím . Sau đó in ra màn hình kết quả của

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.