Составить программу расчета таблицы значений функции f(x) на интервале a<=x<=b в n равностоящих точках. Границы интервала a, b и количество точек n ввести с клавиатуры. Результаты вывести на печать - Pascal(Паскаль)

uses crt;
var a,b,x,e,dx,f,sum:real;
    n,i:integer;
begin
clrscr;
write('Vvedite nachalo intervala a=');readln(a);
repeat
write('Vvedite konec intervala b=');readln(b);
until b>a;
write('Vvedite kolichestvo razbienij n=');
readln(n);
dx:=(b-a)/(n-1);//количество шагов на 1 меньше n
x:=a-dx;sum:=0; //отступим на шаг назад, чтобы все значения вывело
for i:=1 to n do
  begin
   x:=x+dx;
   f:=sin(pi*x)*cos(pi*x);
   writeln('x=',x:0:4,'  f(x)=',f:0:4);
   if abs(f)<1 then sum:=sum+f;
  end;
writeln;
write('Summa=',sum:0:4);
readln
end.