// PascalABC.NET 3.3

begin

 var (x0,xk,h):=ReadlnReal3('x0, xk, h: ');

 var b:=1.5;

 var n:=round((xk-x0)/h);

 var x:=Range(0,n).Select((x,i)->x0+i*h);

 x.Foreach(x->Writeln(x:4:1,'  ',

  x<2?arctan(x)+sqrt(abs(x-2)):x=2?(5-b*b)+cos(pi*x):ln(x-2)*sin(x/2)));

end.

Пример:

x0, xk, h:  0 4 0.5

0.0  1.4142135623731

0.5  1.6883924803924

1.0  1.78539816339745

1.5  1.68990050443388

2.0  3.75

2.5  -0.657786013301077

3.0  0

3.5  0.398971968326155

4.0  0.630276947694634

PascalABC.NET 3.4.2, сборка 1843 от 24.10.2018

Внимание! Если программа не работает, обновите версию!

begin

 var (x0, h, xk) := ReadReal3('Введите через пробел x0,h,xk:');

 var b := ReadReal('Введите b:');

 for var i := 0 to Trunc((xk - x0) / h) do

 begin

   var x := x0 + i * h;

   var F := x = 2 ? (5 - b * b) * Cos(Pi * x) : Ln(x - 2) * Sin(x / 2);

   $'{x,17:f10}{F,24:f10}'.Println

 end

end.