Паскаль.необходимо удалить из массива все элементы содержащие цифру 5

N1=10;
var
a:array[1..n1]of integer;
x,n,i,j,k:integer;
begin
write(x=); read(x);
write(n=); read(n);
if (n>=1) and (n<=10) then
begin
for i:=1 to n do
begin
write(a[,i,]=); read(a[i]);
end;
for i:=n downto 1 do
if a[i]=x then
begin
k:=i;
for k:=i to n-1 do
a[k]:=a[k+1];
a[n]:=0;
n:=n-1;
end;
for i:=1 to n do
writeln(a[,i,],a[i]);
end
else write(error);
end.

Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.