задание на фотке,нужно очень Информатика!

Это, конечно, ужасный вариант с "много Copy", но если надо ...
Program primer4; 
var s:string; i,k:integer; 
begin 
writeln('подсчет количества глухих согласных в тексте'); 
writeln('введите текст'); 
readln(s); 
k:=0; 
for i:=1 to length(s) do 
 if (copy(s,i,1)='к')or(copy(s,i,1)='п')or(copy(s,i,1)='с')or
    (copy(s,i,1)='т')or(copy(s,i,1)='ф')or(copy(s,i,1)='х')or
    (copy(s,i,1)='ц')or(copy(s,i,1)='ч')or(copy(s,i,1)='ш')or(copy(s,i,1)='щ')
  then k:=k+1;
writeln(k);
end.

Пример:
подсчет количества глухих согласных в тексте
введите текст
подсчет количества глухих согласных в тексте
17

#include <iostream>
#include <cstdlib>
#include <ctime>
int main()
{
    using namespace std;
    cout << "Enter size of array: ";
    int N;
    cin >> N;
    int * ARR = new int[N];
    srand(time(0));
    int i;
    for (i = 0; i < N; ++i)
        ARR[i] = rand() % 100 + 1;

    cout << "Here is an original array:\n";
    for (i = 0; i < N; ++i)
        cout << ARR[i] << "  ";
    cout << endl;

    int temp = ARR[N - 1];
    for (i = N - 1; i > 0; --i)
        ARR[i] = ARR[i - 1];
    ARR[0] = temp;

    cout << "\nHere is a new array:\n";
    for (i = 0; i < N; ++i)
        cout << ARR[i] << "  ";
    cout << endl;

    return 0;
}