Инструкция определяющая порядок работы при включенном компьютере хранится в а процессоре б оперативной памяти в человеческом мозге г на жестком диске​

Программирование многие путают с кодированием, что совершенно неверно. Программирование - это процесс написания программы, который начинается от постановки задачи, а кодирование - это запись уже сконструированного алгоритма в виде программы на языке, понятном исполнителю этой программы.

Заданный вопрос - отличная иллюстрация к написанному выше. Алгоритма нет, поскольку, что автор вопроса не понимает о чем идет речь, но зато он спрашивает, как выполнить кодирование на язык Паскаль. Вполне понятно, что автор самостоятельно этого сделать не может.

Вернемся к заданию. Насколько его можно попытаться понять, речь идет о кусочной функции.


Кусочная функция содержит условия, определяющие её части на различных интервалах. Поскольку в условиях есть операции сравнения, в Паскале понадобится условный оператор if - then - else, причем не один.

// PascalABC.NET 3.3, сборка 1547 от 07.10.2017
// Внимание! Если программа не работает, обновите версию!

begin
  var x:=ReadReal('x=');
  var s:real;
  if x<0 then s:=x*x else
    if x=0 then s:=5
    else s:=x-12;
  Writeln(s)
end.

При условии что кроме пробелов и точек других символов или цифр нету, т.к. в задании о них не сказано:
#include <algorithm>
#include <iostream>
using namespace std;
 
int main()
{
    string s;
    cout << "Enter string: ";
    getline(cin, s);
    for (auto i : s) {
        if (i == '.') {
            cout << count_if(
                                        s.begin(),
                                        s.end(),
                                        [](auto c) {
                                            return c != ' ' && c != '.';
                                        }
                                      ) << endl;
        }
    }
    return 0;
}