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

Program Ur1; Uses Crt; var a,b,x:real; begin      clrscr;      write('Введите а>0:');      readln(a);        if (a=0) then a:=1; {чтобы избежать ошибки во время выполнения}      write('Введите b:');      readln(b);        x:=b/a;     writeln('x=',x);     readkey;     end.