Написать программу вычисления значений функции в заданных точках (Turbo Pascal) Очень нужно

var   i: integer;   a: real; begin   writeln('Enter a:');   readln(a);     for i := 1 to 7 do     writeln('d(', i, ') = ', a / i - tan(i)); end.