дан массив из 15 элементов строкового типа данных, который заполняется ручным способом буквами М и Ж, программа определяет количество Ж и М.

const n=15;var a:array[1..n] of integer;i,k,c: integer;begink:=0; c:=0;writeln('Буква М - 1, буква Ж - 2.');for i:=1 to n dobeginreadln(a[i]);if a[i]=1 then k:=k+1 else c:=c+1;end;writeln(k,' - М, ',c,' - Ж.');end.