Составить программу табулирования функции - Pascal (81097)

uses crt;
function f1(x:real):real;
begin
f1:=abs(sin(x)/3.12)+cos(sin(3*x)-0.3)
end;
function f2(x:real):real;
var n:integer;
    s:real;
begin
s:=0;
for n:=2 to 6 do
s:=s+(n+x)*(n*n-x*x);
f2:=s;
end;
var a,b,h,x,y:real;
begin
clrscr;
a:=1;
b:=4;
h:=0.15;
x:=a;
while x<b+h/2 do
 begin
  if x<3 then y:=f1(x)
  else y:=f2(x);
  writeln('x=',x:4:2,' y=',y:7:3);
  x:=x+h;
 end;
readln
end.