Задание: протабулируйте функцию

x:=0
h:=1;
while (a<=11) do begin
y:=3*sin(sqrt(x))+0.35*x-3.8;
writeln('x = ',x,'   y = ',y));
x:=x+h;
end;

uses crt;
const l='---------------------';
var x,y: real;
    h: byte;
begin
writeln('таблица значений функции');
writeln(l);
writeln('|    X    |    Y    |');
writeln(l);
x:=0;
h:=1;
while (x<=11) do
      begin
      y:=3*sin(sqrt(x))+0.35*x-3.8;
      writeln('|',x:7:2,'|':3,y:7:2,'|':3);
      x:=x+h;
      end;
writeln(l);
end.

uses crt;
const l='---------------------';
var x,y,xp,yp,rx1,rx2: real;
    h: byte;
begin
writeln('таблица значений функции');
writeln(l);
writeln('|    X    |    Y    |');
writeln(l);
x:=0;
h:=1;
y:=3*sin(sqrt(x))+0.35*x-3.8;
writeln('|',x:7:2,'|':3,y:7:2,'|':3);
x:=x+h;
while (x<=11) do
      begin
      yp:=y; xp:=x-h;
      y:=3*sin(sqrt(x))+0.35*x-3.8;
      writeln('|',x:7:2,'|':3,y:7:2,'|':3);
      if yp*y<0 then                        //если произведение предыдущего и текущего значения функции будет отрицательно, значит, на данном промежутке изменился знак функции
         begin
         rx1:=xp; rx2:=x;
         end;
      x:=x+h;
      end;
writeln(l);
writeln('Функция меняет знак на промежутке от ',rx1,' до ',rx2);
end.

uses crt;
const l='---------------------';
var a,b,x,y,xp,yp,rx1,rx2,h: real;
begin
write('Начальное значение: '); readln(a);
write('Конечное значение: '); readln(b);
write('Шаг: '); readln(h);
writeln('таблица значений функции');
writeln(l);
writeln('|    X    |    Y    |');
writeln(l);
x:=a;
y:=3*sin(sqrt(x))+0.35*x-3.8;
writeln('|',x:7:2,'|':3,y:7:2,'|':3);
x:=x+h;
while (x<=b) do
      begin
      yp:=y; xp:=x-h;
      if x<0 then writeln('|',x:7:2,'|':3,'-':7,'|':3) else
         begin
         y:=3*sin(sqrt(x))+0.35*x-3.8;
         writeln('|',x:7:2,'|':3,y:7:2,'|':3);
         end;
      if yp*y<0 then                        //если произведение предыдущего и текущего значения функции будет отрицательно, значит, на данном промежутке изменился знак функции
         begin
         rx1:=xp; rx2:=x;
         end;
      x:=x+h;
      end;
writeln(l);
writeln('Функция меняет знак на промежутке от ',rx1,' до ',rx2);
end.