Условие:
Распечатать таблицу значений функции F для x, изменяющегося в интервале от x0 до xk с шагом h. Значения x0, xk, h вводятся пользователем.

Не хотите, не помогайте вообще, ваше право.

Это тоже знакомо: свой ляп пытаться перевалить на окружающих. Порядочные люди обычно говорят "Спасибо" и извиняются за свой промах.

Спасибо за что, за бесполезный кусок кода, который мне никак не поможет? Ну да, спасибо. Можете себе забрать если хотите)

За то, что человек потратил на Вас свое время. Но Вам, видимо, этого не понять, Вы только свой труд цените. И это нам тут тоже знакомо. Добро пожаловать в черный список!

Ага.

PascalABC.NET 3.4.2, сборка 1864 от 11.11.2018Внимание! Если программа не работает, обновите версию!

begin

 var (x0, xk, h) := ReadReal3('Задайте x0,xk,h:');

 var Ctg: real-> real := x -> Cos(x) / sin(x); // котангенс

 var a, b, F: real;

 if x0 * xk <= 0 then (a, b) := ReadReal2('Задайте a,b:');

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

 begin

   var x := x0 + i * h;

   if x < 0 then F := ArcTan(x) + Sqrt(x + 3)

   else

   if x = 0 then F := (a - b) + Cos(Pi * x) // на самом деле a-b+1

   else F := x ** 3 * Ctg(Pi * x / 2);

   Writeln(x:20:15, F:25:15)

 end

end.