скласти на мові pascal програму обчислення кількості букв (a) в ...

Moderator

var

 str: string;

 Symbol_count: integer;

 i: integer;


begin

 readln(str);

 for i := 1 to length(str) do  
   case str[i] of

     'а': inc(Symbol_count);

     'a': inc(Symbol_count);  
   end;

 writeln('Символов а: ', Symbol_count);

end.