из чисел a, b, c и d введенных с клавиатуры, вывести порядковый номер наименьшего из них.

var

  a, b, c, d,nmin,min: integer;

begin

  min:=MaxInt;

  readln(a);

  if a<min then begin

    nmin:=1;

    min:=a;

  end;

  readln(b);

  if b<min then begin

    nmin:=2;

    min:=b;

  end;

  readln(c);

  if c<min then begin

    nmin:=3;

    min:=c;

  end;

  readln(d);

  if d<min then begin

    nmin:=4;

    min:=d;

  end;

  writeln(nmin);

end.