program Project2;
{$APPTYPE CONSOLE}
var a:array[1..100] of integer;
i,k,n:integer;
begin
writeln('Vvedit kilkist elementiv v masyvi A[1..n]');
readln(n);
for i:=1 to n do begin
writeln('Vvedit ',i,' element masyvu A');readln(a[i]);end;
writeln('Vvedit nomer elementa yakogo potribno vydalyty');
readln(k);
for i:=k to n do a[i]:=a[i+1];n:=n-1;
for i:=1 to n do write(a[i],' ');
readln;
end.