Составить схему алгоритма и написать программу табулирования функции y=f(x) для аргумента, который изменяется на интервале х є [а,b] c заданным шагом h — Pascal(Паскаль)

program Project2;
 
var
    i:integer;
    x,y,z:double;
 function F(x,y,z:double):double; 
 var t1,t2,t3:double;
 begin
    t1 := sqr(sin(x+y));
    t2 := 2+ abs(x - (2*x)/(1 +sqr(x*y)));
    F := (t1/t2)/sqr(cos(arctan(1/z)));
 end;  
begin
 write('x=');readln(x);
 write('y=');readln(y);
 write('z=');readln(z);
 writeln('F = ',F(x,y,z):17:6);
readln;
end.