Циклы

[Doublefaced]

Вычислить значения t, соответствующие каждому значению х (xn<=x<=xk , шаг изменения x равен dx) по формуле .Вычислить сумму значений y, произведение отрицательных y, количество отрицательных y. Контрольный расчёт провести при a=5.41, xn=-5, xk=5, dx=1.

program Project1;
{$APPTYPE CONSOLE}
uses
SysUtils,
Math;

Var xn, xk, dx,a,b,x,t,s,q,p:double;
k:byte;
begin
Write(' a = ');
Readln(a);
Write(' b = ');
Readln(b);
Write(' xn = ');
Readln(xn);
Write(' xk = ');
Readln(xk);
Write(' dx = ');
Readln(dx);
write(' x=');
readln(x);
s:=0;
k:=0;
begin
if (x<0) then writeln('Net reshenia');
While (xk>=xn) do
begin
if (xn>0) then
begin
t:=(a+(b/x))*sqrt(x);
q:=(a+ln(b+x))*(a+ln(b+x));
if (q=0) then writeln('DeJLeHue HA HoJLb!') else t:=t/q;
s:=s+t;
inc(k);
if (t<0) then p:=p*t;
//end;
end;
xn:=xn+dx;

end;
Writeln(' cymma t>1 = ',s:7:3);
Writeln(' IIpou3BeDeHue t<1 = ', p:7:2);
Writeln(' koJLu4ectBo t>2 = ', k:3);
Readln;
end;
end.

Помогите я правильно решил?

program Project115;

{$APPTYPE CONSOLE}

uses
  SysUtils,Math,Windows;
var
a,b,x,z:double;
nach,kon,shag:double;
s,p:double;
k:byte;

begin
Write('Vvedite a=');
Readln(a);
Write('Vvedite b=');
Readln(b);
Write('Vvedite Shag=');
Readln(shag);
Write('Vvedite Nach Znach=');
Readln(nach);
Write('Vvedite Kon Znach=');
Readln(kon);

x:=nach;
s:=0;
p:=1;
k:=0;
while x<=kon do
begin
 if (x>0) then if (a>0) then
begin
  z:=(a+b/x)*sqrt(x)/(a+ln(b+x))*(a+ln(b+x));
 s:=s+z;
 p:=p*z;
end;
 inc(k);
if (p=1) and (s=0) then Writeln('Raschet pri x=',x:4:1,' Ne Vozmogen!') else writeln('raschet pri x=',x:4:1,' z=',z:8:3);
 x:=x+shag;
end;
writeln('Summa = ',s:7:3);
writeln('Proizvedenie = ',p:7:2);
writeln('Kol-vo = ',k:3);
readln;
end.

Помогите, как сделать чтобы при вводе отрицательного b не выкидывало из программы.

[__STDC__]

repeat 
Write('Vvedite b=');
Readln(b);
until b > 0;

как-нибудь так..
вообще говоря, проблема в аргументе логарифма... можно как-нибудь так

 if (x>0) and (a>0) and (b>0) then

[Doublefaced]

А можно сделать что-то типа такого

if (x>0) then if (a>0) then