Mảng 1 chiều

program mang_mot_chieu;
uses crt;
var A:Array[1..100]of integer;
i,n,t,x:integer;
procedure nhap;
begin
for i:=1 to n do
begin
write(`Nhap phuong trinh thu `,i,`=`);
readln(a[i]);
end;
end;
procedure xuat;
begin
for i:=1 to n do

write(a[i]:3);
end;

procedure xoa;
begin
write(`mang xoa:`);
t:=1;
repeat
if x=a[i] then
a[t]:=a[t+1];
n:=n-1;
t:=t+1;
until t>n;
end;
begin
write(`Nhap n =`);
readln(n);
nhap;
xuat;
xoa;
xuat;
readln;
end.