Что производит следующий фрагмент программы?

for i:=1 to n do write(a[i],);

Выберите один из 4 вариантов ответа: _

a) Ввод элементов массива с клавиатуры

b) Вывод элементов массива на экран монитора

c) Ввод элементов массива из файла

d) Выводит количество элементов массива

b)

-------------------------------------

  var a,b,c,d: integer;

begin

writeln ('vvedite a');

  read(a);

writeln ('vvedite b');

  read(b);

writeln ('vvedite c');

  read(c);

writeln ('vvedite d');

  read(d);

if (a> b) and (a> c) and (a> d)  then writeln('samoe bolshoe chislo - a')

  else writeln('a ne samoe bolshoe');

end.

плата вроде как, если не ошибаюсь