Обработка символьных данных. Язык программирования Паскаль

Соотнесите условия и фрагменты программы.

Укажите число, которое выведется в результате работы программы: program N; var S: string; i, k: integer; begin S := 'информатика'; for i := 1 to length(S) do if copy(S, i, 1) = 'а' then k := k + 1; write(k); end.