Укажите число, которое выведется в результате работы программы:

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.