Anonymous

program searchmin;
uses crt;
var
  d : array[1..1000] of integer;
  i,j,n,r : integer;
  wmin: array[1..1000] of integer;
begin
writeln('ile elementow ma miec zbior?');
readln(n);
writeln('ile najmniejszych pokazac');
readln(r);
if r>n then
        begin
        writeln('r musi byc mniejsze od n');
        end
else;
begin
        for i:=1 to n do
        begin
        writeln('podaj elementy');
	readln(d[i]);
        end;


wmin[1] := d[1];
for j:=1 to r do
begin
        for i := 2 to n do
        begin
          if (wmin[j] > d[i]) then
             begin
                 wmin[j]:=d[i];
             end;
             d[i]:=d[n];
             n:=n-1;
        end;
end;

for j:=1 to r do
        begin
        writeln('najmniejsze:');
        writeln(j,'.',wmin[j]);
        end;
end;
readln;
end.