Уравнение

[Artemini]

program task1;
{$APPTYPE CONSOLE}
var
a,y,x,b,c,d:Extended;
begin
writeln('Input a');
readln(a);
writeln('Input b');
readln(b);
writeln('Input c');
readln(c);
writeln('Input d');
readln(d);
if 0<a and d<exp(18*ln(10)) and B<0<B
then A<B*x+C<D,x:=(b-a+c-d)/x
else(writeln('error'));
Writeln(y);
readln;
end.

написал программу незнаю где ошибка условие вот

Найти количество целых решений, удовлетворяющих неравенству: A < B*x + C ≤ D.
Формат входных данных:
В единственной строке заданы четыре целых числа: A, B, C и D (0 ≤ A, B, C, D ≤ 1018, B ≠ 0).
Формат выходных данных:
Выведите одно число – количество целых решений данного неравенства.

если можно напишите исправленый вариант

[iCaesy]

{$APPTYPE CONSOLE}
var
a,y,x,b,c,d:Extended;
begin
writeln('Input a');
readln(a);
writeln('Input b');
readln(b);
writeln('Input c');
readln(c);
writeln('Input d');
readln(d);
if 0<a and d<exp(18*ln(10)) and B<0<B
then A<B*x+C<D,x:=(b-a+c-d)/x
else(writeln('error'));
Writeln(y);
readln;
end.

Код нужно оформлять в поле код, Как B может быть больше нуля а ноль больше В ?

[Neobrat]

iCaesy
а вас не удивляет вот эта строчка кода?

then A<B*x+C<D,x:=(b-a+c-d)/x

[iCaesy]

Увидев B<0<B, дальше даже не смотрел, а теперь я думаю можно смело сказать что все после readln(d); неправильно.