uses crt;
var
a:array[1..100] of integer;
z:array[1..100] of integer;
i,j,k,b,c,max:integer;
Tus:char;
bl:boolean;
 
 
begin
clrscr;
repeat
writeln('Sayi uzunlugunu giriniz...: [1..100])');
readln(b);
writeln('Sayi degerlerini giriniz..');
 
for i:=1 to b do
 begin
 readln(c);
 a[i]:=c;
end;
 
write('Sayiniz : ');for i:= 1 to b do write(a[i]);
writeln('');
writeln('Silinmesini istediginiz rakam sayisini giriniz.. : ');
readln(c);
 
c:=b-c; (*kalan eleman sayısı*)
bl:=false;
 
for j:=1 to c do
begin
bl:=false;
max:=a[1];
k:=1;
for i:=2 to b do
 begin if max < a[i] then begin max:=a[i]; k:=i; bl:=true; end;
 end;
 
if not bl then begin
for i:=2 to b do
 begin if max = a[i] then k:=i;
 end;
end;
 
a[k]:=-1;
z[j]:=max;
(*write('Sayiniz : ');for i:= 1 to b do write(a[i]);
writeln('');*)
 
end;
 
write('Sayiniz : ');for i:= 1 to c do write(z[i]);
writeln('');
writeln('Cikmak icin * karakterine basiniz..');
 
Tus:=readkey;
Until Tus='*';
     
readln;
end.