Написать алгоритм и программу которая определяет сколько раз в данном слове встречается буквосочитание "пол"

Function checkstring( s: string ): integer; var i, k, len: integer; begin  len : = length(s); k : = 0; for i : = 1 to len do begin if ( s[i] = 'п' ) then if s[ i + 1 ] = 'о' then if s[ i + 2 ] = 'л' then inc(k); end; checkstring : = k; end; var str: string; rez: integer; begin write('введите слово: '); readln(str); rez : = checkstring(str); if rez > 0 then writeln('буквосочетание "пол" встречается в слове в количестве: ', rez) else writeln('буквосочетание "пол" в слове не встречается'); end.

Program program1; var i, n: integer; var result1, result2, sum: real; var array1: array [0..1000] of real; begin         randomize;         result1 : = 0;         sum : = 0;         write('введите значение n (не менее 0 и не более 255): ');         readln(n);         for i : = 1 to n do                 begin                   array1[i] : = random(1000) - random(1000);                 end;                 begin                   writeln('массив размером - ', n, ' элементов(а): ');                   for i : = 1 to n do write(array1[i], ' ');                   writeln;                 end;         for i : = 1 to n do                 begin                   if array1[i] > 0 then result1 : = result1 +1;                 end;         for i: =1 to n do sum : = sum + array1[i];         result2 : = sum / n;         writeln('количество положительных элементов массива = ', result1);         writeln('среднее арифметическое = ', result2); end.

Int n, sum = 0;             console.writeline("введите n");             n = convert.toint32(console.;             for (int i = 0; i < = n; i++)            {                      sum += i;               }            console.writeline("сумма= " + sum);             console.readline(); как-то так.