2. Определите тип данных в следующей таблице: * процент, время, день
Процент, число, время
Время, день, год
Дата, время, год​

Var
  a,b,h,x,y:real;
begin
  writeln('Введите начальное значение, шаг, конечное значение');
  readln(a,h,b);
  x:=a;
  while x<=b do begin
    y:=0.5/tan(x/4)+4;
    writeln(x:7:3,y:10:5);
    x:=x+h
  end
end.

Тестовое решение:

Введите начальное значение, шаг, конечное значение
-5 0.5 5
 -5.000   3.83386
 -4.500   3.76106
 -4.000   3.67895
 -3.500   3.58244
 -3.000   3.46329
 -2.500   3.30698
 -2.000   3.08476
 -1.500   2.72976
 -1.000   2.04184
 -0.500   0.02086
  0.000  Infinity
  0.500   7.97914
  1.000   5.95816
  1.500   5.27024
  2.000   4.91524
  2.500   4.69302
  3.000   4.53671
  3.500   4.41756
  4.000   4.32105
  4.500   4.23894
  5.000   4.16614

Program Table;
uses math; //подключаем математический модуль, возможно с модулем я ошибся
var  // объявляем локальные переменные для программы
    a , b, h : Real; //указывает дробный тип числа

function calculate_f( x: Real) : Real; //объявляем функцию в теле программы
begin
    calculate_f := 1/2*sin(x/4+1) ;   //записываем результат вычисления в функцию
end;

Begin
    a := -0.99; //определяем
    b :=  50.0;  //вводные
    h := 0.1; //значения

    while a < b do begin //пока "a" меньше "b"
        writeln("F(", a, ') = ', calculate_f(a)); //выводим результат вычислений в строку
        a := a + h; //прибавляем шаг "h"
    end;
end.

Я могу и ошибиться, потому что писал на Паскале оочень давно :D
Поэтому Вам прийдется поправить некоторые ошибки в коде.