Решите уравнение ax=b в паскале. !

Var a,b,x:integer;
begin
write('a,b: ');
readln(a,b);
if a<>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 (b<>0) then write('уравнение не имеет решений') else write('x=',b/a);
end.