Создайте алгоритм и блок-схему программу по .

Решение такое (для x=1,2,3,4,5,6,7,8,9,10. ):

var
  x, y: real;
begin
   writeln('*********************');
   writeln('*    X    *    Y    *');
   writeln('*********************');
   for x := 1 to 10 do
      begin
         if x>=0 then y:=5*x else y:=4*x+2;
         writeln('*    'x,'    *    ',y,'    *');
      end;
   writeln('*********************');
end.

Но лучше сделать ввод значений х с клавиатуры:
var
   y: real; i:integer;
   mas: array[1..10] of real;
begin
   for i := 1 to 10 do
      begin
         write ('Введите ',i,'-е значение ');
         readln (mas[i]);
      end;
    writeln('*********************');
    writeln('*    X    *    Y    *');
    writeln('*********************');
    for i := 1 to 10 do
      begin
         if mas[i]>=0 then y:=5*mas[i] else y:=4*mas[i]+2;
         writeln('*    ',mas[i],'    *    ',y,'    *');
      end;
   writeln('*********************');
end.

В квадратиках, где символы не открываются вставлял строгие выражения.

#define _USE_MATH_DEFINES

#include <iostream>

#include<cmath>

signed main() {

double x, z;

std::cout << "x=";

std::cin >> x;

if (x < -M_PI)

 z = log(abs(x));

else if (-M_PI < x < M_PI)

 z = sin(x) + cos(2 * x);

else if (M_PI < x < 10)

 z = pow(x, 3) + 1;

else if (10 < x < 100)

 z = (x + 1) / (x * x + 8);

else

 z = log(x);

std::cout << z << std::endl;

return 0;

}