Написать программу для решения уравнения ax=b в pascalabc

Program n1;
var a,b: real;
begin
write('a=');
readln(a);
write('b=');
readln(b);
writeln('решается уравнение ',a,'x=',b);
writeln('x=',b,'/',a,'=',b/a);
end.