For i:=1 to length(s) do if copy(S, i, 1)= 'a' then k:=k+1; *
Что выполняет этот фрагмент программы?

0