Вычислить значения функции. Правильно ли решена задача?

program Zadacha2;
 
var x, t: real; const b=5; x1=-3; x2=0;
begin
  writeln('vvedite x');
  readln(x);
  if (x<x1) and (x>=-5) then t:=b - sin(abs(x))
                                     else 
  if (x>x2) and(x<=1) then t:=sqr(ln(x))
                                    else
                                      begin  
                                        writeln('function NO'); 
                                     end;
                                     writeln('t=',t:8:3);  
                                       //вывод результата
                    
                             end.

program Zadacha2;
const b=5;
      x1=-5;
      x2=1;
var x:integer;
    t: real;
begin
x:=x1;
while x<=x2 do
 begin
  if x<-3 then
   begin
    t:=b - sin(abs(x));
    writeln('x=',x:2,'  t=',t:6:3)
   end
  else if x>0 then
   begin
    t:=sqr(ln(x));
    writeln('x=',x:2,'  t=',t:6:3)
   end
  else  writeln('x=',x:2,'  function NO');
  x:=x+1
 end;
end.