ax+bamp;lt;=0 решите через Паскаль пожаааалуйста

Var a, b, x: integer;
Begin
write('Введите число a: ');
readln(a);

write('Введите число x: ');
readln(x);

write('Введите число b: ');
readln(b);

if (ax+blt;=0) then
writeln ('Сумма чиселел меньше или одинакова нулю')
else writeln('Сумма числел больше нуля');

End.