Нужно написать программу на языке Паскаль.

Const x0=-10; xk=13; h=0.5;
var x,y:real; i,n:integer;
begin
n:=round((xk-x0)/h)+1;
x:=x0-h;
for i:=1 to n do
 begin
 x:=x+h;
 if x<>7
  then begin y:=(x*x*x+5*x-8)/(x-7); writeln(x:5:1,'  ',y:8:3); end
  else writeln(x:5:1,'  функция не определена');
 end;
end.

Результат (для h=1.0):
-10.0    62.235
 -9.0    48.875
 -8.0    37.333
 -7.0    27.571
 -6.0    19.538
 -5.0    13.167
 -4.0     8.364
 -3.0     5.000
 -2.0     2.889
 -1.0     1.750
  0.0     1.143
  1.0     0.333
  2.0    -2.000
  3.0    -8.500
  4.0   -25.333
  5.0   -71.000
  6.0  -238.000
  7.0  функция не определена
  8.0   544.000
  9.0   383.000
 10.0   347.333
 11.0   344.500
 12.0   356.000
 13.0   375.667

Unikod - 16-битная кодировка, т.е. 1 символ = 16 бит
ASCII - 8-битная кодировка, т.е. 1 символ = 8 бит

Высказывания:

1) Запрещается копировать любые виды контента с различных веб-сайтов.
= 66 символов.
 66 * 8 = 528 бит = 66 Байт (ASCII)
 66 * 16 = 1056 бит = 132 Байт (Unikod)

2) У Лукоморья дуб зеленый. Златая цепь на дубе том.
= 49 символов.
 49 * 8 = 392 бит = 49 Байт (ASCII)
 49 * 16 = 784 бит = 98 Байт (Unikod)

3) Москва - столица России!
= 24  символа.
 24 * 8 = 192 бит = 24 Байт (ASCII)
 24 * 16 = 384 бит = 48 Байт (Unikod)