Someone

program huijina;
var skirt,min,n,sk,suma,kiekis: integer;
vidurkis: real;
begin
  WriteLn('ivesti sk');
  Readln(n);
  suma:=0; kiekis:=0; min:=9; skirt:=0;
  while n > 0 do
    begin
        sk:=n mod 10;
            suma:=suma + sk;
            kiekis:=kiekis + 1;
        if sk < min
            then min:=sk;
        n:=n div 10;

    end;
        vidurkis:=suma/kiekis;
        skirt:=vidurkis - min;
        writeln(skirt);
  readln;
end.