решите пожалуйста задачу в pascalABC​

Ответ:

Объяснение:

program func;

uses math;

var

 a,b,h,x,y:real;

begin

Writeln('ВВедите а  b  h');

readln(a,b,h);

if a>b then begin writeln('a >b ');exit;end;

x:=a;

while x<=b do

begin

y:=power(x,2)/sin(x+3);

writeln('x=',x:4:2,' y=',y:6:2);

x:=x+h;

end;

readln;

end.