решите уравнение ax=b В Паскале. Помогите пожалуйста!

Var a,b,x:integer;
begin
write('a,b: ');
readln(a,b);
if alt;gt;0 then writeln('x = ',b/a:4:1)
else writeln('Разделение на 0');
end.

Пример:
a,b: 5 2
x = 0.4

Program n1;
var a,b: real;
begin
write('Введите a и b через пробел: ');
readln(a,b);
writeln('решаемое уравнение: ',a,'x=',b);
write('Ответ: ');
if (a=0) and (b=0) then write('уравнение имеет неисчерпаемое огромное количество решений') else if (a=0) and (blt;gt;0) then write('уравнение не имеет решений') else write('x=',b/a);
end.