program pr;
uses crt;
const n=10;
var a:array[1..n] of integer;
i,k:integer;
begin
clrscr;
writeln('vvedite massiv');
for i:=1 to n do
readln(a[i]);
writeln('---------------------');
for i:= 1 to n do
write(a[i]:5);
writeln;
writeln('vvedite k');
readln(k);
if k>n then writeln('удаление невозможно')
else if k>n-2 then
begin
writeln('zamenen 0');
for i:=k to n do
a[i]:=0;
for i:=1 to n do
write(a[i]:5);
end
else
begin
writeln('poslednie dva zamenen 0');
for i:=k+2 to n do
begin
a[i-2]:=a[i];
end;
a[n-1]:=0;
a[n]:=0;
writeln('---------------------');
for i:= 1 to n do
write(a[i]:5);
end;