Составить программу определяющую сколько букв "с" в данном слове

Var a,b,c: integer;     d: string;     begin   writeln('введите слово ');   readln(d);   b: =0;   for a: =1 to length(d) do begin   if d[a]='с' then b: =b+1;   end;   writeln('количество символов "с" в данном слове ', b);   end.

Program z_1; var  st,st1: string; i,sum: integer; begin writeln('введите вашу строку'); readln(st); st1: ='с'; for i: =1 to length(st) do  if pos(st1,st[i] ) < > 0 then inc(sum);   writeln('ответ = ',sum); end.

Таблица истинности - в прилагаемом файле.

63:2=31(1) 31:2=15(1) 15:2=7(1) 7:2=3(1) 3:2=1(1) 111111(2)
7:2=3(1) 3:2=1(1) 111(2)

Во первых названием.Ярлык это добавленное,а фаил это из загрузок