program xxx;
uses crt;
const n=6;
var a: array[1..n] of integer;
      k,i,g,s,j,w:integer;
BEGIN
clrscr;
writeln ('Ââåäèòå g è w');
readln(g, w);
randomize;
for i:=1 to n do
  begin
    a[i]:=random(w)-g;
    write(a[i]:4);
  end;
writeln;
for j:=1 to n-1 do
for i:=1 to n-j do
  if a[i]>a[i+1] then
    begin
     s:=a[i];
     a[i]:=a[i+1];
     a[i+1]:=s;
    end;
g:=n-1;
k:=1;
for i:=1 to g do
  if a[i]<>a[i+1] then
    k:=k+1;
writeln('k=', k:5);
END.