Viết chương trình nhập vào hai số tự nhiên a và b. Tính tổng (𝑎+𝑏), hiệu (𝑎−𝑏), tích (𝑎∗𝑏), thương (𝑎𝑏) (lấy 1 chữ số lẻ) của hai số đó?

Program Xoa_mang; uses crt; var m:array[1..100] of integer;     n,i,k:byte; Begin      Write('So phan tu cua day: ');readln(n);      for i:=1 to n do      Begin           Write('M[',i,']=');Readln(M[i]);      End;      Write('Nhap vi tri cua phan tu can xoa: ');Readln(k);      For i:=k to n-1 do m[i]:=m[i+1];      For i:=1 to n-1 do Write(m[i],', ');      Readln End.