viết chương trình tính giá trị biểu thức A=x+y ²-1

uses crt;
var A,x,y:integer;
begin
      clrscr;
      write(‘Nhap x: ‘);
      readln(x);
      write(‘Nhap y: ‘);
      readln(y);
      A:=x+(y*y)-1;
      write(‘Gia tri bieu thuc A: ‘,A);
      readln;
end.