из чисел a, b, c и d введенных с клавиатуры, вывести

var

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

begin

  min:=MaxInt;

  readln(a);

  if alt;min then begin

    nmin:=1;

    min:=a;

  end;

  readln(b);

  if blt;min then begin

    nmin:=2;

    min:=b;

  end;

  readln(c);

  if clt;min then begin

    nmin:=3;

    min:=c;

  end;

  readln(d);

  if dlt;min then begin

    nmin:=4;

    min:=d;

  end;

  writeln(nmin);

end.