Чи можна обмежити кількість відповідей респондента на форму до однієї?

телевидение

радиовещание

интернет

газеты и т.д 

1 кбайт

1000 байт

1024 бит

1 байт

1 бит 

var a: array[0..10] of integer;

i,x: integer;

begin

  read(x);

  randomize;

  for i : = 1 to 10 do begin

      a[i]: =random(4);

      if a[i]=x then writeln('a[',i,']');

  end;

end.