Помогите пожайлуста написать программу на free pascal

Напишите программу для решения уравнения ax = b относительно х в целых числах. Учтите, что a может принимать любые значения, в том числе и 0.

На вход программе подаются целые числа a, b, по модулю не превосходящие 30000. Требуется вывести целый корень уравнения, если он существует и единственный. Если уравнение не имеет корней, то вывести no solution. Если уравнение имеет больше одного целого корня, то вывести many solutions

в этой сказали много ошибок, ноо гдеее (IMG:style_emoticons/default/ohmy.gif)

program horosho;
var a,b:integer;
begin
write('a b ? ');
readln(a,(IMG:style_emoticons/default/cool.gif);
if a=0
then
if b=0
then
writeln('many solutions')
else if b mod a<>0
then
writeln('no solution)
else writeln(b div a);
readln
end.


хеелп мии плииз

a=0, b!=0 => нет
а=0, b=0 => бесконечно много
(a!=0, b!=0) or (a!=0, b=0) => writeln(b/a)
как-то так

Последние два условия можно заменить на а!=0.

для наглядности.

спасииибо большое