viết chương trình xuất ra kết quả hiệu của 2 số nguyên x,y. khi biết x,y có giá trị được nhập từ bàn phím

program hieu;

uses crt;

  var x, y, hieu1, hieu2: integer;

begin

  clrscr;

  write(‘Nhap x = ‘); readln(x);

  write(‘Nhap y = ‘); readln(y);

  hieu1:=x-y;

  hieu2:=y-x;

  writeln(‘x – y = ‘, hieu1);

  writeln(‘y – x = ‘, hieu 2);

  readln

end.