Пользователь вводит символ ch и строку s
посчитайте сколько раз символ ch встречается в строке s
program pascal_char_in_string1;
var i,amount :integer;
s : string;
ch : char;
begin
writeln('input char and string : ' );
readln( ch, s );
amount := 0;
for i := 1 to length( s ) do
begin
if( s[i] = ch ) then
amount+=1;
end;
writeln( 'amount char ',ch, ' in string : ' , amount )